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ABSTRACT 

Herein,  we  discuss  a  generalization  of  the  semiclassical 
cubic  spline  known  in  the  literature  as  the  exponential  spline. 
In  actuality,  the  exponential  spline  represents  a  continuum  of 
interpolants  ranging  from  the  cubic  spline  to  the  linear  spline. 
A  particular  member  of  this  family  is  uniquely  specified  by 
the  choice  of  certain  "tension"  parameters. 

We  first  outline  the  theoretical  underpinnings  of  the 
exponential  spline.   This  development  roughly  parallels  the 
existing  theory  for  cubic  splines.   The  primary  extension  lies 
in  the  ability  of  the  exponential  spline  to  preserve  convexity 
and   monotonicity  present  in  the  data. 

We  next  discuss  the  numerical  computation  of  the  exponen- 
tial  spline.   A  variety  of  numerical  devices  are  employed  to 
produce  a  stable  and  robust  algorithm.   An  algorithm  for  the 
selection  of  tension  parameters  that  will  produce  a  shape 
preserving  approximant  is  developed.   A  sequence  of  selected 
curve-fitting  examples  are  presented  which  clearly  demonstrate 
the  advantages  of  exponential  splines  over  cubic  splines. 

We  conclude  with  a  consideration  of  the  broad  spectrum 
of  possible  uses  of  exponential  splines  in  the  applications. 
Our  primary  emphasis  is  on  computational  fluid  dynamics 
although  the  imaginative  reader  will  recognize  the  wider 
generality  of  the  techniques  developed. 


Notation 


1  N+i 


h.=  X.  ,  -  X.    (i  =  1,...,N) 


p.=   tension  parameter   (i  =  1,...,N) 


end  conditions:   T  (a)  =  f  (a),   t' (b)  =  f  (b) 


f  =  data 


T   =   exponential    spline   interpolant 


s  =  cubic   spline   interpolant 


(f2   -   fi) 

V      h.     -  f '  (-^ 


.,N) 


^N+l    =    f *  (^)    - 


^i     =      tiTT-^l/P? 


"1  1 

C. 


^i     =      fPi  ^  -  177  1  /  Pj 


S.      =      sinh    (P^hj,) 
C^      =      cosh(p^h^) 


(i   =   1,.. .,N) 
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Preface 

A  preoccupation  with  problems  of  interpolation  and 
approximation  may  be  traced  back  to  the  dawn  of  mathematical 
enterprise.   The  primary  impetus  for  these  investigations 
was  the  desire  to  determine  the  motions  of  the  heavenly 
bodies.   Indeed,  the  historical  record  [Pl]  contains  many 
practical  computations  performed  by  the  Babylonian  scribes. 
As  an  example,  one  such  calculation  employs  linear  interpola- 
tion in  a  table  to  predict  the  risings  and  settings  of 
Mercury.   Furthermore,  other  orbital  calculations  made  during 
this  period  reveal  that  higher  order  polynomial  interpolation 
was  also  in  use. 

An  early  example  of  an  approximation  method  that  did 
not  reduce  to  straightforward  interpolation  was  Archimedes' 
estimation  of  tt  [p2]  .   His  technique  utilized  the  approxima- 
tion of  a  circle  by  a  sequence  of  inscribed  and  circumscribed 
polygons.   Moreover,  he  provided  error  bounds  for  this 
procedure,  which  may  very  well  be  a  "first"  in  approximation 
theory.   In  modern  parlance,  we  would  dub  this  approximatioji 
by  linear  splines  (see  below) . 

The  piecewise-linear  approximation  scheme  reappeared  in 
Euler's  work  [P3]  on  the  numerical  solution  of  ordinary 
differential  equations  (ODE's).   This  in  turn  was  a  key 
ingredient  of  the  Cauchy-Peano  existence  theorem  for  ODE's  [P4] 
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The  eighteenth  century  also  witnessed  the  full  blossoming 
of  polynomial  interpolation  [P5,P6]   culminating  in  the 
Newton  and  Lagrange  forms  for  the  interpolating  polynomial. 

In  spite  of  its  theoretical  appeal,  polynomial 
interpolation  suffers  from  several  serious  drawbacks. 
First  of  all,  since  polynomials  are  analytic  functions, 

any  local  modification  to  the  data  entails  a  global  effect 

■f- v» 
on  the  interpolant.   Also,  since  N+1  points  require  an  N — 

degree  polynomial  interpolant,  very  frequently  the  result 
is  a  curve  with  undesired  undulations.  A  problem  of  a  much 
more  serious  nature  is  the  Runge  phenomenon  [P7] .   Runge ' s 
example  illustrates   the  disturbing  fact  that  as  the  mesh 
width  vanishes,  the  polynomial  interpolant  does  not  neces- 
sarily converge  to  the  function  being  approximated. 

One  solution  to  these  problems  is  to  use  a  polynomial 
of  degree  m  (m  small)  for  the  first  m+1  data  points,  another 
polynomial  for  the  next  m+1  data  points,  and  so  on. 
Unfortunately,  this  procedure,  called  piecewise-polynomial 
interpolation,  produces  an  interpolant  that  belongs  only  to 
C  [Xj^,X^^^]. 

Such  was  the  state  of  affairs  until  Schoenberg 
introduced  polynomial  spline  functions  [P3]  in  the  mid-1940 's, 
His  idea  can  be  condensed  as  follows.   Locally,  i.e. 
between  two  consecutive  data  points,  the  interpolant  is  to 
be  a  polynomial  of  degree  n  while  the  global  interpolant  is 
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only  required  to  belong  to  c"~  [X^ ,X^^^] .   This  results 
in  N(n+1)  -  (n-1)  conditions  for  the  determination  of 
N(n+1)  polynomial  coefficients.   That  is  to  say,  we  have 
an  (n-1) -dimensional  space  of  polynomial  spline  interpolants 
to  the  data.   Extra  constraints  are  typically  provided  in 
terms  of  end  conditions.   Note  that  for  n  =  1  we  obtain  the 
previously  alluded  to  linear  splines. 

A  popular  choice  is  the  case  n  =  3,  i.e.  cubic  spline 
interpolation.   The  use  of  such  low  degree  polynomials 
reduces  the  risk  of  wiggles,  while  second  derivative  conti- 
nuity is  sufficient  in  many  applications.   An  additional 
attraction  of  the  cubic  spline  is  that  it  possesses  a  direct 
analogue  in  beam  theory.   This  is  the  draftsman's  spline, 
whence  comes  the  name  of  this  mode  of  approximation. 

Since  their  introduction,  splines  have  been  studied 
intensively.   Convergence  of  interpolatory  splines  has  been 
established,  as  well  as  convergence  of  higher  derivatives 
provided  the  function  being  approximated   is  sufficiently 
smooth.   In  general,  the  rate  of  convergence  depends  on 
the  degree  of  smoothness  of  this  underlying  function. 

The  practical  utility  of  cubic  splines  is  quite 
evident  from  their  widespread  use  as  finite  element  basis 
functions,  in  collocation  approximations  to  differential 
equations,  and  in  geometric  and  data-fitting  applications. 
At  first  glance  it  would  seem  that  many  issues  in  practical 
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problems  of  interpolation  and  approximation  have  been 
resolved  by  their  introduction. 

This  is  true  to  a  limited  extent.   However,  cubic 
splines  can  and  do  produce  spurious  oscillations  in  the 
interpolant.   In  some  cases  this  is  merely  a  nuisance  but 
in  others  it  can  prove  to  be  detrimental.   For  example, 
in  combustion  calculations  it  could  produce  an  unrealistic 
detonation,  or  in  computational  aerodynamics  it  could 
result  in  the  generation  of  a  nonphysical  shock  wave. 

Spath  [47]   first  proposed  the  exponential  spline  as 
a  remedy  to  these  difficulties.   We  arrive  at  the  exponential 
spline  by  returning  to  beam  theory.   We  add  a  tensile  force 
which  has  the  effect  of  pulling  the  beam  taut  between  the 
support  points.   The  resulting  interpolant  includes  expon- 
entials  in  place  of  higher  order  monomials.   Pruess  [35,37] 
has  rigorously  established  that  for  sufficiently  great  tensile 
forces  the  exponential  spline  so  produced  mimics  both 
convexity  and  monotonicity  properties  present  in  the  data. 

The  work  at  hand  gathers  together  the  principal  existing 
results  related  to  exponential  spline  interpolation  and  intro- 
duces a  number  of  new  contributions  to  the  state-of-the-art  in 
the  theory  and  computation  of  exponential  splines.   Some 
novel  applications  are  then  considered,  in  particular  the 
treatment  of  compressible  fluid  flows,  where  it  is  shown 
that  exponential  splines  permit  the  simulation  of  shock  waves 
with  negligible  overshoots   in  the  computed  solution. 


In  the  development  of  the  theory  of  exponential  splines, 
we  first  detail  the  boundary  value  problem  for  the   spline 
under  tension  [42]   followed  by  its  explicit   solution  in 
terms  of  second  derivatives  [35] .   The  translation  of  this 
second  derivative  formulation  into  the  corresponding  first 
derivative  formulation  is  then  developed.   The  exponential 
spline  is  then  placed  within  the  more  general  framework  of 
piecewise  L-splines.   This  leads  us  to  define  higher  order 
tension  splines.   The  possibility  of  Hermite  interpolation 
by  exponential  splines  is  then  considered.   Next  we  derive 
certain  extremal  properties  of  exponential  splines.   Conver- 
gence properties  of  exponential  splines  originally  obtained 
by  Pruess  [35]    are  established  via  a  modified  procedure. 
In  addition,  these  results  are  extended  to  include  third 
derivatives.   Next,  a  review  of  Pruess'  [35]  results  on  shape 
preservation  properties  of  exponential  spline  interpolation 
is  given.   The  cardinal  spline  basis  on  finite  knot  sets  is 
introduced,  various  properties  are  established  by  extending 
the  arguments  of  Birkhoff  and  de  Boor  [7] ,  and  further 
properties  are  obtained  by  a  new  procedure.   Finally,  the 
B-spline  basis  is  derived   together  with  certain  ancillary 
considerations. 

The  consideration  of  computational  matters  begins  with 
the  direct  solution  of  the  spline  equations  [2] .   Bounds  for 
the  condition  number  of  the  tridiagonal  matrix  are  derived. 
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For  the  second  derivative  formulation  this  was  supplied  by 
Pruess  [35]  while  for  the  first  derivative  formulation  this  is 
new.  There  follows  an  analysis  of  the  iterative  solution  of  the 
spline  equations, including  a  discussion  of  the  optimum  relaxa- 
tion factor.   Next  is  a  treatment  of  spline  end  condi- 
tions.  Both  the  techniques  used  and  the  results  obtained 
are  unavailable  elsewhere.   An  alternative  power  series 
representation,  as  suggested  by  Pruess  [35] ,  is  derived 
for  small  hyperbolic  function  arguments.   New  parameter 
selection  algorithms  are  given  which  produce  co-convex 
and/or  co-monotone  interpolants .   This  complements  the 
non-constructive   existence  proofs  previously  noted.  The 
periodic  exponential  spline  is  then  detailed.  A  variety  of 
numerical  topics  is  next  considered.   Finally,  we  present  a 
sequence  of  examples  illustrating  the  inherent  superiority 
of  exponential  splines  to  cubic  splines. 

The  subject  of  the  application  of  exponential  splines 
has  largely  been  neglected  in  the  literature  [17,39,45], 
We  commence  with  a  broad  spectrum  of  geometric  applications 
in  computational  fluid  dynamics.   We  then  take  up  the  approxi- 
mate solution  of  the  Laplace,  heat,  and  wave   equations   using 
exponential  splines.   After  this  we  embark  on  an  investiga- 
tion of  the  possibility  of  using  the  properties  of  expon- 
ential splines  to  inhibit  the  appearance  of  wiggles  and  over- 
shoots in  the  numerical  simulation  of  flows  with  shock  waves. 
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while  retaining  a  high  order  of  accuracy.   We  commence  with 
the  numerical  solution  of  a  one  dimensional  model  problem 
and  conclude  with  the  simulation  of  two  dimensional  inviscid 
fluid  flow  in  a  channel.   We  develop  a  scheme  which  uses 
exponential  splines  to  approximate  spatial  derivatives, 
while  employing  a  fourth   order  Runge-Kutta  time  stepping 
procedure.   Along  the  way,  we  generalize  to  our  scheme  a 
result  of  Lax  and  Wendroff  [2  8]  concerning  the  computation 
of  weak  solutions  of  nonlinear  hyperbolic  conservation  laws. 
There   follows  a  discussion  of  the  stability  and  accuracy 
of  the  proposed  scheme   and  a  number  of  alternative  schemes. 
Artificial  viscosity  is  included  via  the  coupling  of  Flux 
Vector  Splitting  [50]  with  the  upwinding  of  derivatives  [24] . 
We  note  that  our  treatment  of  Flux  Vector  Splitting   contains 
a  new  result  concerning  the  nature  of  the  split  Jacobians. 
Boundary  conditions  are  enforced  in  a  consistent  fashion  by 
performing  a  local  analysis  of  the  characteristic  variables 
[19,22].   The  significant  achievement  here  is  that  the 
proposed  scheme  yields  a  numerical  solution  that   is  third 
order  accurate  (fourth  order  accurate  on  a  uniform  mesh) 
in  smooth  regions  of  the  flow,  while  accurately  capturing 
any  discontinuities  that  arise  without  significant 
overshoots/undershoots . 
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Part  I;   Theory  of  Exponential  Splines 

I. 1.   Overview 

In  this  first  part  we  discuss  exponential  splines 
from  a  theoretical  viewpoint.   Starting  from  the  analogy 
of  a  cubic  spline  to  a  beam  we  add  a  tension  term  to  the 
governing  differential  equation   thus  giving  rise  to  the 
exponential  spline.   The  solution  to  this  boundary  value 
problem  expresses  the  exponential  spline  in  terms  of  its 
second  derivatives   at  the  knots.   This  is  the  form  we 
prefer  since  it  leads  to  simpler  expressions  than  a  repre- 
sentation in  terms  of  the  first  derivatives.   However, 
since  it  will  be  useful  to  us  later,  we  next  derive  this 
other  system  of  equations.   The  exponential  spline  is  then 
inspected  in  the  context  of  generalized  splines.  This  leads 
us  to  consider  higher  order  tension  splines  and  higher 
degree  interpolation.   Certain  extremal   properties   are 
then  derived.   Convergence  of  the  approximating  spline  is 
next  studied  through  the  proximity  of  the  interpolating 
cubic  and  exponential  splines   with  the  same  end  conditions. 
The  shape  preservation  capabilities  of  exponential  splines 
are  then  reviewed.   Finally,  we  add  to  the  number  of  possible 
representations  by  introducing  the  cardinal  spline  and 
B-spline  bases. 


1.2.  Derivation  of  Exponential  Spline  Equations  in  Terms 
of  Second  Derivatives 

The  cubic  spline   is  well  known  to  have  the  following 
analogue  in  beam  theory  [2] .   Consider  a  simply  supported 
beam  with  supports  {  (x.  ,f .)}-_,  .   Then  s(x),  the  deflection 
of  the  beam,  is  a  solution  to 

[E-I-D^]s  =  M 

between  successive  supports.   Here 

E  =  Young ' s  modulus 

I  =  cross  sectional  moment  of  inertia 

M  =  bending  moment. 

Under  the  assumption  of  weightlessness,  M  is  a  piecewise 
linear  continuous  function  with  break  points  at  the  supports. 
Thus,  differentiating  the  above  twice  we  arrive  at  the  two- 
point  boundary  value  problem  on  [x.,x.  ,]  (i  =  1,...,N): 

[D^]s  =  0  ,    s(x^)  =  f^  ,    s(x^^3^)  =  f^_^_^    , 
s"(x.)  =  sV  ;   s"(Xi^^)  =  sV^j^  , 

2 

where  sV  and  s'.'  ^  are  chosen  to  ensure  s  e  c  [a,b]  when 

4 
s'(a)  and  s'(b)  are  given.   Note  that  [D  ]  s  =  0  on  [x.,x.  ,]=*s 

is  a  cubic  there. 

The  cubic  spline  so  defined  has  a  tendency  to  exhibit 

unwanted  undulations.   Correspondingly,  the  above  analogy 

suggests  that  the  application  of  uniform  tension  between 


supports  might  remedy  the  problem  [42,43].   The  beam 
equation  on  [x.,x.  ,]   then  becomes 

[E-I-D^  -  t.I]s  =  M  . 

2 

Letting  p.  =  (t./E-I)   leads  us  to  define  the 

exponential  spline  [47,48,49]   as  the  solution  to  the 
boundary  value  problem  on  fx. ,x. , , ]  (i  =  1,...,N): 

[d'^-pJd^Jt  =  0  ,    T(x^)  =  f.  ,    T(Xi^3^)  =  fi+i  , 

T"(x,)  =  TV  ,   T"(x.^,)  =  t;;^^  , 

with  TV  (i  =  1,...,N+1)  as  yet  undetermined. 

Let  us  pause   to  note  that 

4 
(i)    p.  ->0=*  [D]T  =  0  ,   i.e.   the  cubic  spline, 

(ii)   p.  ->-  «>  =*  [^  D^  -  D^]T  =  0  =»■  [D^]T  =  0  , 

Pi 

i.e.   the  polygonal 

("broken  line")  interpolant. 

We  now  solve  this  boundary  value  problem  (BVP)  for 
the  exponential  spline.  Let  t(x)  =  t"(x),  then  t(x)  is 
a  solution  to  the  BVP 


t"-p2t  =  0  ,    t(x.)  =  T^  ,    t(Xi^^)  =  TV^^  . 
Therefore 


In  the  following  paragraphs  and  throughout  the  thesis, 
s(x)   will  represent  the  cubic  spline  and  t (x)  the  exponential 
spline. 


t(x)  =  -|-  |tV  sinh  Pi(Xi+3^-x)  +  tV_^jl  ^^^^   Pi(x-x^)|, 


1 
Hence  t(x)  satisfies  the  BVP 

T"(x)  =  ^  |t^  sinh  Pi(Xi^3^-x)  +  TV_^j^  sinh  p^(x-x^)| 

T(x.)  =  f.  ,    T(x.^^)  =  f.^^. 

Therefore 

T(x)  =  -J^-  {tI'  sinh  p.  (x.  ,-x)+T"    sinh  p.(x-x.)y 
PiS.  ^  -       - 

TV      X.^, -X             T"      X-X. 
+  (f   -^)      1  +  1     +  (f     -   1+1)  1 

^  ^^i    2^      h.      ^^i+1     2  '    h. 
Pi       1  Pi      ^ 

p.x       -p.x 
(=  A^  +  B^x  +  C^e  +  D^  e     )  . 

The  requirements  of  first  derivative  continuity  at 
the  points  of  interpolation  yield  expressions  for  the 
determination  of  TV  (i  =  1,...,N+1).   Specifically,  for 
i  =  2,...,N  we  have 


^11^         'i^         r 


Pi 


11    II 

T  .  ,  -T 


T'(xT)  =  \; (-TV  ,+TVC.  A     +    j-^  jf.-f.  ,+   ^~^^     ^     \ 

"-  Pi-l^i-1  ^   ^-^   ^  ^-^^     ^i-1  ^  ^   ^-^       P^_i  ^ 

Also 

II   If 


Pi 


T.'L-T" 

'n+1'  ~  pnSn  1~'n"'n+i^n/  "  h^  ^ 


T.  (X    )   =  -i_  (-t"+t"   c  1  +  -^  If    -f  +   N~  N+1  ] 


Pn 


Hence,  xV  (i  =  1,...,N+1)  are  the  solution    of  the  tri- 
diagonal  system 


^i-l"i-l  +  ('3,_,+d,)T^  +  e.TV^^  =  b,  ,   (i=2,. 


^N^N  ^  ^N^N+1  =  ^N+1  ' 


,N)  , 


C. 


where  e.  =  [^  -  ^] /pj  ,   d.  =  [p.  3^  -  j^-l/p^  with 

11  11 

S.  s  sinh(p.h.)  ,   C  =  cosh  (p.h.  )  .    '^    is  uniquely 

defined  once  xV  (i  =  1,...,N+1)  are  determined. 


1.3.   Derivation  of  Exponential  Spline  Equations  in  Terms 

of  First  Derivatives.  ,    :  , 

Recall  that  on  [x.,x.  .]   the  exponential  spline  is 
the  solution  to  the  boundary  value  problem 

(*)   [D^-p?D^]T(x)  =  0  subject  to 

The  general  solution  of  (*)    is 

The  determination  of   K.    (j  =  1,2,3,4)  then  consists  of 
substituting  into  (**)  and  enforcing  the  boundary  condi- 
tions. 

However,  the  solution  of  the  resulting  4'<4  system  of 
equations  becomes  quite  tedious  thus  making  an  alternative 
route  desirable.   We  instead  use  previously  obtained  results 
to  derive  the  desired  tridiagonal  system. 

Recall  that  on  [x.  ,x._|_-,  ]  (i=l,...,N) 

•f'Cx)  =  — ^  j-TV  cosh  Pi(x^^3^-x)  +  T^^^  cosh  p^(x-x^)| 


f.-f.  T 

1-1      1-1  1-1    1-1  1     h.  . 

•  f.-f.  , 

T.     =  e.  ,T'>    +  d.  ,TV  +   ^  ■  ^"-^ 
1       1-1  1-1    1-1  1      h.  , 

1-1 


t!  = 

1 


i+1 


=*  TV 

1 


^i^i  -  «i^i+l  ^ 


^i^i  ^  ^i^i+1  ^ 


'^i-l 


^2     2 


1+1   1 
h. 

^i+l-fi 


\  1    d._^   x-l 


e.  ,        f.-f.  T 

d.    ,         ^  h.  , 

1-1  1-1 


} 


and 


T  .  = 

1 


^i 


2    ,2 

e.  -  d. 

1     1 


I  1    dn 


1+1 


e. 
i_ 


+  1 


1+1   1 


} 


Equating  these  results  yields 


^i-1 


^2     2 
L^i-l-^i-ti 


^i-1  ^ 


^i-1 


d. 

1 


^2    ^2      ,2  ^2 
-^i-l-^i-1    '^i-^t^ 


Tl  + 

1 


^2      2 

d.-e. 

■-  1   i-* 


T  ' 

i+1 


L^i-l-^i-1- 


f.-f.  , 
1   1-1 


^i-l- 


■-  1    2H 


1+1   1 


1   — ' 


This  of  course  must  be  modified  at  the  boundaries, 
The  special  case  p.  =  p,  h.  =  h   Vi  yields 


f  •  ..-f  ■ 


[2(d^+e)J'^i-l  "^  |_d+e  J^i  ^    |2(d+e)J^i+l       2h 

Note  that   [21^  +  [-df^  +  [jl^fir]  =  ^  • 
Furthermore,  if  p.  =  0   Vi   then  we  have  e .  =  h . /6  and 
d.  =  h./3.   Consequently,  the  above  relations  reduce  to 
the  familiar  cubic  spline  equations. 


If  we  wish  to  specify   ij  =  f"(a)  and/or  t^^^  =   f"(b) 
we  may  use  the  relations 


•  d  1        e 

-L     T  '   J.    -*• 

_d  -e^J       d^-ej 


'2     = 


1 

• 

r«2-«il 

S'^K 

I  •'1 J 

-  f"(a) 


'N 


72   2 


T'  + 
N 


N 


j2   2 


N+1 


'^N-^N 


^N+l"^N 


N 


+  f"(b) 


If  we  want  the  weights  in  front  of  '^ [_-^    i    ^|/  ^i+i 
to  sum  to  unity  we  may  multiply  the  i —  equation  by 

('^i-i-^-i)  ( V^i) 


(^i-i-^i-i>^(V^i^ 


producing 


ei_i(<3i-«i) 


('^i-l+^i-l^t^Vl-^-l^^^V^i^^ 


^i-l 


d,_,(d,-e,) 


(Vl^^i-l^f^Vl-^i-l^^^V^i^l 


^i^^i-l-^i-l^ 


^  (d,+e.)[(d._^-e._,)+(d.-e.)jj-^I 


^i^Vl-^i-l^ 


(d.+e.)t(d._,-e._^)(d.-e.)] 


i+1 


d.  -  e. 

1    1 


f.-f.   T 
1    1-1 


d.  ,-e.  , 
1-1   1-1 


^i^i-^i 
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We 


may  instead  insist  that  s  satisfy  L.L.s  =  0  on 


(x.,x.  ,).   Such  splines  are  called  piecewise  L-splines 

[33] .   If  we  let   L.  =  D   -  p.D  then  L*  =  D  +  p^D 

*      4     2  2  -,   . 

=>L.L.  =D   -p.D,  i.e.  exponential  spline  interpolation, 

The  principal  advantage  of  this  framework   is  that 

?  f   ""i+l      2 
the  functional  I  (L.f)   dx   is  minimized  by  the 

i  =1  ■'x.       ^ 

piecewise  L-spline    "^  fulfilling  the  end  conditions 

(L^T)  ^^"^^  =  0  (k  =  l,...,m-l)  at  x^  and   (L^t)^'^"^^  =  0 

at  X   - .   In  a  subsequent  section  we  specialize  this 
N+i 

result  to  the  exponential  spline  and  use  it  to  produce 
further  extremal  properties. 


11 


1.5.   Higher  Order  Tension  Splines 

In  this  section  we  generalize  the  exponential  spline. 
The  starting  point  for  this  discussion  is  the  characteri- 
zation of  the  exponential  spline  as  being  in  the  null 

_   4     2  2 
space  of  E  =  D  -  p.D   between  knots.   One  possible 

extension  would  be  to  consider  piecewise  solutions  of 

[D^  +  a.p.D^  -  p?D^]t{x)  =  0  . 

4 
This  has  the  desirable  feature  of  reducing  to  [D  ]t  =  0 

2 

for  p.  =  0  and  [D  ]t  =  0  for  p.  =  °° .      However  this  operator 

* 
does  not  permit  a  factorization  as  L  L  since  a  ji^  o 

implies  a  differential  operator  that  is  not  self -ad joint. 
As  such  it  does  not  produce  piecewise  L-splines.  In  fact 
the  most  general  fourth  order  homogeneous  differential 
operator  with  real  constant  coefficients  (lead  coefficient 
=  1)   that  permits  such  a  decomposition  is  precisely  the 
exponential  spline  operator  E. 

Hence  if  we  want  a  general izatiai  using  constant  coeffi- 
cients  that  produce  L-splines  we  must  increase  the  order 
of  the  operator.   Thus,  consider  the  sixth  order  ODE 

[D^    +  ao^    +    3D^    +    YD^    +    6D^]t(x)    =    0    . 

3  2  *  3  2 

Let   L   =    D      +uD      +riD=>L      =-D      +   \iD      -riD.    Thus 

L  L  =  -  D  +  (y  -2ri)D  -  n  D   .   So  that  multiplying 
the  ODE  by  -1  we  have 
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[L*L]t(x)  =  0 


where  a  =  y  =  o  (by  self-adjointness  of  the  differential 

2  2 

operator)  ,6  =  n   ,   B  =  2ri-)j.   I.e. 

[D^  +  (2n-y^)D'^  +  n^D^]t(x)  =  0 
or 

[D^(D^+yD+rii)  (D^-yD+nl)  ]  t(x)  =  0  . 

The  characteristic  roots  will  then  determine  the  basis 
functions  for  the  null  space.  The  double  root  of  zero 
admits  1  and  x.   The  other  roots  are 


2  2 

-y  +  /y  -4n   y  +  /y  -4ri 


X   e 


-r£  ^2    „      J  -^    2    3    -yx   yx    -rx:   2  .^    _ 
If  n   =0   we  admit  x,x,e,e.   Ify-4n=0we 

admit  e    ,  xe~   ,  e   ,  xe   .   Otherwise  we  have  four 

distinct  A.  '  s   and  the  corresponding  basis  functions.  Note 

2 

that  for  y   >  4ri  we  obtain  hyperbolic  functions  while  if 

2 
y   <  4n  we  obtain  trigonometric  functions. 

All  this  leads  us  to  the  following  definition  of 

tension  splines  of  order  2m  (degree  2m-l) .  Let 

T  =  D^"^  +  cc2^_2d2'"-2  +  ...  +  a^D^  +  a2D2 

m  * 
have  the  factorization  T  =  (-1)  L  L  where 

L  =  d"^  +  B   tD"*"-"-  +  ...  +  BoD^  +  B.D  =^ 
m-i  ^      i 

-  *   /  T  X  m_m  ,  ,  T  ,  m-1  „    t-vHI— 1  ,      ,  „  _2    „  _ 
L  =  (-1)  D   +  (-1)    6   iD     +  ...  +  B^D   -  B,D. 

m-1  2       1 


13 


Then  t(x)  is  a  tension  spline  if  it  is  a  piecewise  solution 
of 


[T]t  =  [(-l)"'L*L]t  =  0  . 


Therefore 


m— 1  ^   1         m— X 

+  (-1)"*"^32D  +  (-D^^'^Bj^lt  =  0  . 

Again  the  double  root  admits  1  and  x  as  basis  functions 
for  N(L*L) .   The  other  basis   functions  are  determined 
by  the  remaining  roots  of  the  characteristic  equation. 

This  generalization  allows  us  to  pursue  one  of  two 
routes.   First  we  could  require  a  greater  degree  of 
smoothness  at  the  knots-   The  sixth  order  operator 
discussed  above  would  produce  a  quintic  tension  spline 
in  this  context.   On  the  other  hand  we  could  require 
higher  order  interpolation  at  the  knots.  Our   previous 
example  then  amounts  to  a  quintic  Hermite  interpolant 
under  tension  matching  function  values  together  with 
first  and  second  derivatives. 
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1.6.   Hermite  Interpolants 

The  spline  fit  by  its  very  nature  is  a  global  scheme 
as  it  requires  the  solution  of  a  tridiagonal  system.  On 
the  other  hand  osculatory,  or  Hermite,  interpolation 
provides  a  local  means  of  interpolation  [15] .  For  this 
reason  Hermite  interpolation  is  many  times  preferred  over 
spline  interpolation. 

Hermite  interpolation  requires  the  specification  of 
a  certain  number  of  consecutive  derivatives  at  each  knot. 
The  particular  number  may  vary  from  knot  to  knot. 
The   local  nature  of  this  approximation  comes 

to  us  at  the  expense  of  smoothness.   For  example  if  we 

specify  first  derivatives  we  have  a  cubic  Hermite 

1  2 

interpolant  which  is  only  C   as  opposed  to  the  C   smooth- 
ness provided  by  the  cubic  spline.   Moreover,  the  required 
derivatives  are  typically  not  available  and  must  themselves 
be  approximated. 

With  these  provisos  duly  noted,  we  now  proceed  to 
discuss  Hermite  interpolation  by  exponential  splines.  As 
pointed  out  in  another  section  a  higher  degree  of  contact 
may  be  achieved  by  resorting  to  higher  order  tension 
splines. 

For  ease  of  presentation,  we  restrict  x  s  [0,1]  with 
f(0)  =  fQ  ,  f(l)  =  f^,  f(0)  =  f^,  f(l)  =  f{  given. 
In  this  setting  exponential  Hermite  interpolation  is  effected 
by 
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h(x)  =  fp't'o^x)  +  fi*i(x)  +  fj^o^^^  "^  f{^-^_U) 

where  (f^,  <!>,  ,  ^q,  ^-i  are  the  cardinal  functions.  These 
functions  are  defined  as  follows. 

<1)q(x)  =  ao+bQX+CQeP''+dQe"P^;   <fo(0)=l,  ^q  (1)  =*  '  (0)  =<})  •  (1)  =0 

4.^{x)  =  a^^+bj^x+c;^^^'''^^!^'^'''  *l(l)=l'  *3^(0)=(()^(0)=(}']^(1)=1 
?q(x)  =  io+bpX+CQeP^+dQe'P'';  ^^(0)=1,  ?q  (  0)  =?q  (1)  =^q  (1)  =0 
^^(x)  =  i^+bj^x+Sj^eP^+d^e"^'';   *|(1)=1,  *^  (0)  =5^^  ^^^  =^1  (°)  =°  • 

This  leads  to 
(J)q(x)  =  <(2  -  2  cosh  p  +  2p  sinh  p)  +  (-2  p  sinh  p)x 

+  (1  -  e"P)eP^  +  (l-eP)e"P^|/|4-4  cosh  p  +  2p  sinh  p| 
<l)^(x)  =  |(2p  sinh  p)x  +  (1  -  eP)eP''  +  (1  -  e"P)  e'P"'! 

/< 4  -  4  cosh  p  +  2p  sinh  p> 
*q(x)  =  |p(2  -  2  cosh  p)x  +  (-1  -  p  +  eP)eP^+  (l-p-e"P) e~P^| 

/  ip(4  -  4  cosh  p  +  2p  sinh  p)  > 
$,(x)  =  {(2  sinh  p  -  2p)  +  p(2  -  2  cosh  p)x 

+  (-l+p+e~P)eP'^+(l+p-eP)e"P'^>  /  |p(4  -  4  cosh  p+2psinhp)j, 


Notice  that 


<})^(x)  =  <1)q(1-x) 
^^(x)  =  ^q(I-x) 
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Note  that  all  four  basis  functions  involve  e^   and 
e  ^^.   The  computational  complexity  may  be  reduced  by  the 
following  construction  [30] . 

Let 


where 


h(x)  =  f^^^ix)  +  f^^j^ix)  +  A^^U)  +Bi>^{x) 


^^{x)    =  1-x 


^^(x)    =   X  =   i>^(l-x] 


^^{x)    =  a2+b2X+C2eP^;  ^2^^^=^'    '^2''^^^^'    '^2^°)=°' 
ij^3(x)  =  a3+b3X+C3e"P^;  ip3(0)=0,  'JJ3(1)=0,  i|;^(0)=B 


and  A,B  are  as  yet  undetermined. 
This  produces 


4'o(x)  =  a 


-l+(l-eP)x+eP^ 


2  1+p-eP 


-l+(l-e"P)x+e"P^ 


Therefore 


1^3  (X)  =  3   ^^     _, 

1-p-e  " 


^  ^  1  +  p  -  eP 


^(1)  =  ^'^(O)  .  l-e'P-pe-P  ^  -e^^l+P  .  ^.(0) 

^  ^               1  -  p  -  e"P   l-eP+pe^   ^ 

*;(o)  =  L^-^L±^^.(i). 

•^  1  +  p  -  e^ 


_  1— e  +pe 
Letting  q  -   ^ —  we  have 

l+p-e^ 
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Now  ^n^i   +  ^I'^i  ^^s  ^  slope  of  m 
we  require  that 


f.-f-.  Hence 


and 


I.e. , 


and 


or 


A'l>2(0)  +  B'j^3(0)  =  fQ  -  m 


A^'^il)    +   BiJ^jd)  =  f^  -  m 


Aip2(0)  +  Bq»p3(l)  =  fg  " 


m 


Aq'Jj2(0)  +  BiJ^^d)  =  f^  -  m 


>lJ2(0)     qipjd) 
qijJ2(0)      'i'3(l) 


A 
B 


f'-m 
I 
l_  ^■\~'^ 


A 
B 


""  ^'^(1)       -qtl^^d) 


(1-q  )'J^2^°)"''3(1^ 


^qi>2(0) 


ii'2(0) 


f--m 


Now  let 


and 


l+p-e"^ 


ll;'  (0)  =   ^       = 

2      l-'^    2(l-eP)+p(l+eP) 


1^3(1) 


1  ^  1+p-e^ 


I-  ,  -.    T-  1 


1-q 
Z3- 


1-q 

-q 

1-q 

1 


pd-p) 


*- 1+q     1+q 


f'-m 
f^-m 
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Equally  as  simple  would  be  to  let 


i|'2(0)  =  4^3(1)  =  1 


B 


I-   1 


Z3_ 


-q  -1  r 

1-q 

1 


f'-m- 


f  j-in_| 


1-q^      1-q- 
What  is  important  here  is  not  so  much  the  result  as 


the  technique.   Specifically,  suppose  we  are  provided 
with  two  new  functions  e   and  e    .   Together  with 
1,  X,  e^  ,  e  ^   we  are  now  required  to  match  f,  f,  f" 
at  X  =  0,1.   The  cardinal  spline  approach  would  have  us 
construct  the  six  new  basis  functions 


A  /  \      .1-   .    Px ,  J   -px ,    ox ,  c      -ax 
*q(x)  =  aQ+bgX+CQe^  +dQe  ^   +eQe  +fQe    ; 

(i>Q(0)  =  1,  4)q(1)  =  <^'q{0)    =   4>q(1)  =  <J)JJ(0)  =  <|)U(1)  =  0 


'j^(x)  =  <J)q(1-x) 


9  q(x)  =  aQ+bpX+CQe^  H-d^e  ^   +6^0      +f  ^e 


<))q(0)  =  1,  (1>q(0)  =  <J)q{1)  =  <J)q(1)  =  (J)q(O)  =  $q(1)  =  0 


(f)^(x)  =  <}'q(1-x) 


$q(x)  =  aQ+bgX+CQe^^+dQe  ^^+eQe  ^+^Qe      ^    1 


?JJ(0)  =  1,  ?q(0)  =  $q(1)  =  $^(0)  =  ?^(1)  =  ?|;(1)  =  0 


?3^(x)  =  ?q(1-x)  . 
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On  the  other  hand  our  alternate  technique  would  have 
us  calculate  h"(0)  and  h"(l).   We  would  then  define 

4*4  (X)  =  34  +  b4X  +  c^eP""  +  d^e'P''  +  e^e'"''  ; 

11^^(0)  =  ^^(1)   =  1^4(0)  =  ^la)   =  0,  i>l{0)  =  a 

^^{x)    =   a^  +  b^x  +  c^eP^  +  d^e'^^  +  e^e"  ^  ;  .  -.   ..  w 
11^^(0)  =  4^5(1)  =  ^^{0)    =   4'^(1)  =  0  ,  ^'^{0)    =  B. 
Finally,  we  would  set  ^ 

H(x)  =  h(x)  +  h^^U)    +   Bip^Cx) 


where 


and 


K^'^iO)    +  B<JJ^(0)  =  fg  -  h"(0) 


Aip^d)  +  Bi|;^(l)  =  f  j;  -  h"(l) 
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1.7.   Extremal  Properties 


Results  in  the  literature  on  piecewise  L-splines  [33] 


r        4  2 

(f"  +  pf)   dx.   In  this  section  we 

b 


provide  certain  extremal  properties  associated  with  either 

of  the  functional s 

^      r"      2    2    2 
derive  a  third  functional,     [(f")   +  p  (f)  ]  dx,  and 

•'  a 
then  establish  the  associated  extremal  properties. 

We  begin  with  the  following 


Lemma. 


{ v(u"  +  pu' )  -  u(v"  +  pv' )  >  dx  =  < u'v-uv'  +  puv> 


a 


Proof; 


a 


{...}dx=    <vu"  +  pvu'  -  uv"  +  puv' y  dx 
vu"  -  uv" +  p(uv)  ' >  dx 


a 
6 


a 


=  vu ' 
+  puv 


R    ^ 


a    J 
a 
6 


a 


V  '  u  '  dx  -  uv ' 


a 


u ' V '  dx 


a 


{ 


=  ■(u'v  -  uv'  +  puv 


Q.E.D. 


a 


Now  let  p(x)  be  a  step  function  3p(x)  =  p.  on 

[x.,x.,,];  i  =  1,...,N.   In  addition  let  f  have  an 
1   1+1 

absolutely  continuous   first  derivative  and  a  square 
integrable  second  derivative.  Then   notice  that 
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I  (f  +  pf  M^  dx 


u 
=     I     [f-  T"+   p(f -T')]^ 


dx 


+     I   ( T " +  pT ' ) ^  dx 


+  2     [f "  -  T"  +  p(f -T')]  •  (T"  +  pT')  dx. 


Inspect  this  last  term, 
b 

[f"  -  T"  +  p(f '-T')  ]  .  (T"+   pf)  dx  ; 


by  letting  u  =  f-T  and  v  =  t"  +  pi '   in  our  lemma.  This 
yields 


N 


^i+1 


i=l 


I  (T"  +  pT")  [f"-T"  +  p(f '-T')]  -  (f-T)  [T^-^^'  +  pT'" 


(iv) 


+  p(T  •"+  pT")  ]  dx 


N  f 
i=l  "^ 


)(T"+pT')  -  (f-T)  (T'"+pT")  +  p(f-T)  (T"+pT') 


N+1 


^i  +  1 


X  . 

1 


Letting  t  interpolate  to  f  at  {x.}.^,  produces 


N 

I 
i=l 

N 


'i+1 


(T"+pT') [f "-T"+p(f '-T') ] 


X. 

1 


i=l  *• 


)  ( t "  +  pT  •  ) 


} 


'i+1 


^i 


=  (f '  (b)  -  T-  (b))  •  (T"(b)  +pT'  (b))  -  (f  (a)-T'  (a))  (T"(a)+pT'  (a)) 
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Therefore 
b 


J   (f+pf  )^dx  =  J   [f"-T"+p(f' -T')]2dx  +  f  (T"+pT')2dx 

a  a  a 

+  2|(f  (b)-T'  (b))  •  (T"(b)  +  pT-  (b))  -  (f  (a)  -  T'  (a))  •  (T"(a)+pT'  (a)  )j. 


Adding  these  two  relations  then  leads  to  an  extension  of 
Holladay's  theorem: 

Theorem. 
b  b 

J   [(f")^+p^(f •)^]  dx  =  J   [(f"-T")2+  p2(f'-T')2]  dx 


a 

b 

+ 
J 


[(T")2+p^(T')2]dx  +  2|(f '  (b)-T'  (b)) -T"(b)-(f '  (a)-T' (a)) 

•T"(a)}, 


This  leads  us  to  define  [32]  the   inner  product 

(f,g)  =     f"g"  dx  +  p^     f'g*  dx   together  with  the 
■'a  ■'a 

induced  pseudonorm 

1/2 


f     (  2    2     2     \^^^ 

Hfii^  =  I  J  [(f")^+  p^(f)^]  dx| 


a 
This  allows  us  to  restate  our  previous  result  as 

llfll^  =  II  f-Tll  ^+11x11^+   2/  (f  '  (b)-T'  (b)  )  •T"(b)-(f  '  (a)-T'  (a))  •T"(a)  I   , 
e  e  e        1.  J 

So  that   if   T  "(a)  =  x" (b)  =  0,    or   x- (a)  =  f ' (a) ,    x' (b)  =  f ' (b) 

we  have  II  f  II  ^  =  llf-xll^  +  UxO  .  We  thus  have  arrived  at  the 
e        2      e 
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following  ' 

2 

Theorem  (Minimum  Norm  Property) .   Let  g  s  c  [a,b] 

and  interpolate  to  f  at  {x.}._-,  .   Then  HgB   is  a  minimum 
when  g  =  T  3  T"(a)  =  t" (b)  =  0.   If  we  restrict  g' (a)  =  f ' (a) 
and  g'  (b)  =  f ' (b)  then  DgB    is  a  minimum  when 
g  =  T  9  T'(a)  =  f'(a),  T'(b)  =  f'(b).   In  both  cases  this 
T  is  unique. 

Proof  (of  uniqueness):   Suppose  there  is  also  a  t(x) 
with  the  minimum  property.  Then 

e        e      e 


and  likewise 


Therefore 


and 


e        e      e 


T-Tof    =     nxilf    -     DT     |2     >     0 

e  e  e        — 


T-Tnf    =     JTIlf     -     ||T|2     >     0       =>      , 

e  e  e   — 


b 
e  ~ 


T-T||2    =     I      [(T"-T")2    +    p^(T'-T')^]     dX    =     0 


a 

=>  T"-f"     =     0=>T-T    =    AX+B. 

But  (t-t)  (a)  =  (T-T)  (b)  =0=>A  =  B=0  .  Therefore  x  =  t. 

Q.E.D. 
This  leads  us  to  the 
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Theorem  (Best  Approximation  Property) .   Let  f  have  an 
absolutely  continuous  first  derivative  and  a   square 
integrable  second  derivative.   Let  t  be  the   interpolate ry 
exponential  spline  with   t • (a)  =  f (a)  and  x • (b)  =  f  (b)  . 
Let  X  be  any  exponential  spline  with  knots  at  {x-}-_n 
and  tension  p(x).   Under  these  conditions  x  is  the  best 
approximation  by  these  exponential  splines.  I.e. 

Bf-Tll    >  Of-Tll   . 

e  —      e 
Proof;   Let   g  =  f-T  and  x  =  t-t.   Hence  t  is  an 
exponential  spline  9T(x^)  =  t(x^)-t(x^)  =  f(x^)-T(x^)  =  g(x^) 
and  T'(a)  =  T'(a)-T'(a)  =  f'(a)-T'(a)  =  g'(a)  and 
T'(b)  =  T'(b)-T'(b)  =  f'(b)-T'(b)  =  g'(b).  Our 
Extended  Holladay's  Theorem  =» 

II  all  2    =    llg-Tll^    +    II  Til  2 
^    e  e  e 

=*        Of-Tll^    =     Ilf-T-T  +  Tll^     +     IIT-Tll^ 

e  e  e 


or 


llf-Tll^    =    ilf-Tll^    +    Ot-tII?    .  Q.E.D. 


Note  that  we  have  strict  inequality   unless 

llT-Tll^  =  0  =>  T"  =  T"  and  T'  =  T'  =»  T  =  T+AX+B 
e 

=*T'  =  T'+A=*A=  0,  i.e.  T  is  unique  up  to  an  additive 
constant. 
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1.8.   Convergence  Results 

In  this  section  we  establish  rates  of  convergence 
for  the  exponential  spline  in  the  limit  of  vanishing  mesh 
width.  Convergence  rates  for  higher  derivatives  are  also 
given  for  functions  possessing  a  certain  degree  of  smooth- 
ness. 

We  begin  by  studying  the  proximity  of  cubic  and 
exponential  splines  with  identical  end  conditions.   In 
what  follows   It'll  is  the  max-norm  for  continuous  functions, 


h  =  max  h .  ,   and   p    =  max  p .  . 
1         '^max     .   '^i 

X  1 


The   following  result  has  been  obtained  by  Pruess  [35] 


Theorem  1 . 

llD^(s-T)ll  <  (26/3)  p^,   h'*"^  max  |s'.'|   (i=0,l,2), 

J        -' 

where,  as  before,  s  and  x  are  the  cubic  and  exponential 
splines  ,  respectively. 

We  present  a  companion  result. 

Theorem  2. 


D^(s-T)li  <_  (26/3)  p^g^  h^  ^  max  \t".\       (i=0,l,2). 


Proof :   Define  6  =  s-t.   We  treat  the  case  of 
specified  end  slopes.   We  then  have 


^I  ^  I  ^2  = 


h. 


T"  + 


3e 


1    1 
•,  ~  2 


'2 
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h.  ^  h. 

2(h,_^+h,)   i-1  ^   i  ^  2(h.  T+h.)   i+1 


'i-l  "i' 


1-1 


^^i-l-^i-l 


i_2(h^_j^+h^)_j 


=■6"  +  6"  , 
2   N     N+1 


TV  T  + 
1-1 


^(^i-l^<^i) 


-  1 


TV  + 

1 


6e.-h. 
1   1 


2(h.  ,+h.) 
1-1   1 


TV  , 
1+1 


(i=2,. . . ,N) 


3e 


N 


N 


T"  + 

N 


3d 


N 


-  1 


N 


T  " 
N+1  • 


Now  let  9.  =  Pj^h.  .   Power  series  expansions  then  verify 
the  identities 


3e. 


(1)   o>^-|>-- 


3d; 


(2)    0  > 


-  h-  -  1  >  -  T 


(3)    0  > 


6e.-h.        e- 

i i >  -  ^ 

2(h.  ,+h.)  -    2 


1-1  "i' 


6e._i-h.  , 

(^^    Q  >  2(i  ,+h:}  >-- 
1-1  1 

3(d.  ,+d.) 

(5)    Qi-h/:+h.' 
1-1  1 


|2 
i-1 


1  ^     2,2 
-  1  >  -  p    h 


(6)    0  <  e^/d^  <  J 

e.  1 +e .     , 
di_i+ca.  -  2   • 

Next  let  A  =  f  ^V  '  •  •  •  '  "^N+l^  "^^   "^^^^  ^®  '^^'^^ 

(I+E)A  =  r 


with  the  straightforward  definitions.  We  thus  have 

DEU„  =  I  and   llrll^  =  max  ( |  r  ]  ,  max  !r.|,|r   ,[) 
However,  using  the  above  bounds,  we  have 
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■N+1 


Irl 


r, I  <  p^   h^  max  ItvI 
1 '  —  ^max     .   '  1 ' 

1 

12  pLx^'max  I  TV] 

<  2  p2,  h^  max  I  TV  I 
—   "^max     .  '  1 ' 

1 


-1 


lAD^  <  Ml+E)  ^ll<„  Orl^  <  llrll„/(l-lEl„)  <  4  P^^^^h^  max  |t^I. 


We  can  now  use   this   to  attain  our  goal.   Specifically, 

2 
6(x)  e  c  [a,b]  and  the  conditions  6(x.)  =  "^Cx.^,)  =  0 

(i  =  1,...,N)   together  with  the  Mean  Value  Theorem 


3C  e  (x^,x^_^^)  3  &'{K.)    =  0  ^  6(x)  =  6(x)-6(x^) 


X  . 


6'(t)  dt  and  6'(x)  =  6'(x)-6'(^.)  =  f   6"(t)  dt  . 


However , 
6"(x)  =  s"(x)-T"(x)  =  sV 


x-x. 


X . , 1 -X 

i  +  s"    ^-^^ 
i+1   h.     ^i    h.. 


-  TV  , 
1+1 


sinh  p.  (x-x. ) 

sinh  p.h. 
^1  1 


-  TV  • 

1 


sinh  Pi(Xj|^^2^-x  ) 

sinh  p.h. 
^1  1 


=  6V 


x-x.        X .  , -X 

h   +  6"  •  -ili +  T" 

i+1   h.     i     fT.  i+1 


x-x.   sinh  p. (x-x.) 


sinh  p.h. 

^1  1  — ' 


+  TV 

1 


^i+1-^ 

h. 

1 


sinh  Pi(x^^j^-x  ) 
sinh  p.h. 


Each  of  the  bracketed   terms  can  be  expanded  to  reveal  that 

2  2 
they  are  bounded  by  p . h .  /  3  .   Hence 

p?h2  p2h2  1 

|6"(x)|  <  |6V_^J  +  |6V|  +  |T^_^J.-i^+  |TV|.  ^  '. 

2      ^2 

<    2-4-p2      h^  maxlTVl  +  2-max|TV  I  .-5!1^^ —  =   ^  p^      h^maxlTV] 
—  '^max  •     '    1 '  .     '    1 '  3  3     "^max         .    '   i ' 
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so  that 


n  6"(x)ll  <  ^  p^   h^  max  I  TV 


-  3 


max 


0  6-  (x)ll  <  ii  p2   h^  max  |tv| 
n  6  (x)H  <  ^  p^   h"^  max  |tv| 


-  3 


max 


Q.E.D. 


Note   that  max|Tv|  is  bounded  as  shown  by  the  following 
argument.   Divide  both  sides  of  each  equation  in  the 
tridiagonal  system  by  the  diagonal  term.   The  resulting 
system  may  be  written  as  (I+E)T"  =  b  with  the  obvious 
definitions.   Hence  Bf'-ll^  <  llbll^/  (I-BeII^).   Now  (6)  and 
(7)  above  imply  that  II  Ell  ^  <_  1/2  and  thus  that 
llT'MI^  <  211  bll^  .   211  bll^   is  bounded  as   p.h.  ^-  0  and 
in  fact  ^  3llf"il.     These   theorems  may   be  used   to 
obtain   results   for   II D  (f-T)!l   from  known   bounds 
for  llD^(f-s)  U  .   E.g. 

Corollary  1.   If  f  e  c'*[a,b]   then  3  k  (p    , «  D^f  H  ,  H  D^f  B  ) 


max 


4-i 


independent  of  h  9  llD^(f-T)ll  <  kh^  ^  (i  =  0,1,2) 


We  now  take  up  the  convergence  of  the  third  derivative. 
We  have  on  fx-j/Xj^^-i] 


6    -6V 
^      ^^'  h.      i+1 


1    Pi 
_  _  _  cosh  p.(x-x.) 

1  _ 

iP  fTT  +  i^  ^°^^  Pi^^i+l-'^  ) 
1-11  — 


1    1 

+  T 


|6'"(x)l  <  jf-  II ah^  + 


PiC. 


hi 


•  2  max  I  TV  I 
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However, 

2 

p.c.    T    p   h. 

s,   -  h.  -    3    • 
Therefore 

2 

|6'"(x)|   <  8  p^^   ^  maxlxyl  +  J  p2   h.  •  maxl  tv  I   =» 
'       '   —   '^max  h .   .  '  1 '    3  "^max  i    .  '  i ' 

11  1 

1  mm 

Known  results  for  the  cubic  spline  now  establish  the  0(h) 
convergence  of  the  third  derivative. 
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1.9.   Shape  Preserving  Interpolation 

In  this  section  we  review  the  results  of  Pruess 

[35,37]  concerning  the  behavior  of  exponential  splines 

in  the  limit  of  infinite  tension.   Our  main  interest  here 

is  in  the  shape  preservation  properties  of  exponential 

spline  interpolation.   In  what  follows  we  assume  a  fixed 

set  of  data  and  uniformly  bounded  tension  ratios, 

P   /P  •   <  P. 
'^max  '^min  — 

Let   A^(x)  denote  the  linear  spline  of  interpolation. 
Then  we  have 

Theorem  1 .   Given  a  sequence  of  exponential  splines 
gp  -)■  oo  for  some  i;   then  in  any  closed  subinterval  of 

^^i'^i+1^'  ^"^^)  "^  °  ^^'^   '^'M    ->■  ^'(x)  uniformly  while 
T  (x)  ->■  A  (x)  uniformly  in  [x.,x.  ,]. 

This  theorem  gives  us  hope  that  we  can  produce  co- 
convex  and  co-monotone  interpolants  using  exponential 
splines  with  sufficiently  high  tension.  The  fulfillment  of 
this  expectation  is  the  subject  of 

Theorem  2 .   If  b.,b.  ,   are  positive  (negative), 
then  for  P^.i/  P- /  Pa,i    sufficiently  large  t"(x)  is 
positive  (negative)   in  [x.,x.  ,].   If  X'(x)  is  positive 

(negative)  in  (5^i_i '^^^2^  '  ^^®"  ^°^  ^i-l'  ^i '  ^i+l 
sufficiently  large  t'(x)  is  positive  (negative)   in  [x.,x.  ,] 
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We  note  that  at  the  knots  we  have 


T'(X.)  ^^ 


~h-h-l    ^    ^i-M-^i 


^i-l 


b. 


1-1   1 


The  cubic  spline  many  times  exhibits  unwanted 
oscillations  due  to  the  emergence  of  overshoots  and/or 
extraneous   inflection  points.   The  above  results 
assure  us  that  the  exponential  spline  can  remedy  this 
situation  for  appropriately  chosen  tension  parameters. 
We  subsequently  construct  such  shape  preserving  inter- 
polants. 
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I. 10.   Cardinal  Spline  Basis 

The  form  of  the  Lagrange  interpolating  polynomial 
suggests  the  following  basis  for  the  exponential  splines 
with  given  knots  and  tensions  [6,7,14,34]. 

Cq(Xj^)   =   1,  Cq(Xj)   =   0   (j=l,...,N+l)  ,   Cq(x^^^)  =  0 

C^(Xj^)   =   0,  a(Xj)   =   6^^  (j  =  l  ,...,N+1),  C^(x^^j^)  =  0; 

i  =  1, . . . ,N+1; 
'^N+2(^l)  =  °'  Sl+2^^j^  =  °   (j  =  l,...,N+l),   Cj;^3^(Xj^^3^)  =  1. 

These  conditions  uniquely  define  the  cardinal  spline  basis 

{C.  (x)  }^"^^.   Clearly 
1     i=0 

N+1 
T  (X)   =   f  •  .  Cq  (X)  +  J^  f .  .  C.  (X)  +  f^^^  .  C^^2  ('^^  • 

In  what  follows  we  restrict  ourselves  to  uniform  mesh  and 
tension. 

We  begin  by  generalizing  the  arguments  of  Birkhoff 
and  de  Boor  [7].   Let  t(x)  be  the  function  on  [x. ,  x   , ]  of 


the  form 


satisfying 


t{x)  =  a +  bx +  ce^^ +  de"P^ 


t(x^)=f{x^)  ,    t(Xj^^3^)=f  (Xj^^^)  ,  t'  {x^)=f'  {x^)  ,    f  (x^^^)=f  (x^_^^) 
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Then  given  the  exponential  spline  fit  to  g(x)  =  f(x)  -  t(x) 
with  zero  slope  end  conditions,  we  can  simply  add  t(x)  to  it 
to  obtain  the  fit  for  f.   Hence,  WLOG  we  consider 
only  functions  3f(x^)  =  f(Xjj+i)  =  f'{x^)    =   f'(Xj^^-,^)  =  0. 
Hence  we  need  only  consider 


N 


T(x)  =  I      f  .  c.  (x)  . 
i=2   ^    ^ 


Leinma  1.   Any  function  of  the  form  e(x)  =  a+bx+ce^'^+de  ^^ 
which  satisfies   e(0)  =  0  and  e(h)  =  0   also  satisfies 


e'(h) 
e"(h) 


phc-s 

2 (l-c)+phs 

ph-s 

p^hs 
ph-s 

p(ph-s) 

phc-s 
ph-s 

e-  (0) 
e"(0) 


Proof: 


e(x)  = 


+  X' 


e2(l-c)-e^(ps) 
p(ph-s) 


+  sinh  px* 


e^(c-l)+p^he 


0 


P  (ph-  s) 


+  cosh  px' 


Q.E.D. 


Corollary  1.   For  i  ^    j+1,  j,   C^(x)  satisfies 


cKx.^ji     r^^^    ^^^:^l!p^^n  rc!(x.) 


'i^^j+1' 


Ci^'^j+l) 


ph-s 
ph-s 


p(ph-s) 


p^hS 


phC-S 
phS 


CV(Xj) 
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Proof :   C . (x)  with  i  so  restricted  satisfies  the 
hypotheses  of  the  lemma.  Q.E.D. 

Note.   All  the  above  matrix        elements  are 
<  0,  with,  in  particular, 

-  2  <  P^  <  0  . 
—  ph-s 

Corollary  2.   For  i  =  2,...,N,  C  (x)  satisfies 

c!  (x.)C'.'  (x.)  >  0  ,   for   j  <  i 
1   j   1   j   —    '        -" 

C  (x.)C'.'  (x.)  <  0  ,   for   j  >  i  . 
1   j   1   j   —  -" 

Proof;   For  j  =  0  we  have  C?(x.)  =  0;  for  j  =  l,...,i-l 
the  result  is  a  consequence  of  the  negativity  of  the 
above  matrix;  for  j  >  i   changing  x  to  -x  reverses  the  sign 
of  C!  (x)C'.'(x)  .  Q.E.D. 

Corollary  3.   For  i  =  2,...,N,  C.(x)  satisfies 

|c!(Xj)  I  <  i  |cj^(Xj^^)  I  ,    j  <  i-1 
|C!(x.^^)|  <  i  !c:(Xj)l  ,    j  >  i  . 

Proof;   For  j  <  i-1  the  inequality  follows  from 

Corollaries  1  and  2   with  strict  inequality   the  consequence 

of  C'Cx-,)  i-    0   (otherwise  C.{x)  =  0)  which  implies  that 

CV(x.)  7>^  0  for  j  <  i;  for  j  >  i  we  appeal  to  symmetry 

about  X. .  Q.E.D. 

Note.   This  implies  an  exponential  decay  of  |Cj^(x)| 
away  from  x. . 
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The  following  results  can  be  established  by  arguments 
nearly  identical  to  those  in  [7].   Hence  their  proofs  are 
omitted. 

Lemma  2 .   Let  T (x)  be  any  exponential  spline  with 
knots  {x.}._,   (uniform  mesh  and  tension),  which  satisfies 

1-1      1+1  1  1-1   1-1  —       1+1   1+1  — 

Then 
T^  <  0,  T^_j^  >  0,  T|^^  <  0  ,    and  x  (x)  >_  0  on  t^^.^/X^,^^]  . 

Lemma  3.   Let  t (x)  be  such  that 

"i-1  =  ^  =  ^+1  =  °  '    ^i-1  i  °  '  "i+1  10- 
Then    x  (x)  >_  0  in  [x.  _,  ,x  .  ]  . 

Corollary     For  i  =  l,...,n-l  we  have 

(a)  |C^(x)|  <  |C|(Xj)I-h  on  [x^,x^_^_^]     ,      j  >  i 

(b)  Ic^(x)|  <  |cj(Xj)|-h  on   [Xj_^,Xj]  ,   j  <  i-1. 

Let  us  now  consider  the  "natural"  cardinal  splines 
defined  by  the  conditions 

N^(Xj)  =  5^j   (j  =  1,...,N+1)  , 
NV(xj^)  =  NV(Xj^^j^)  =0,   i  =  1,...,N+1. 

Let  N(x)  be  any  exponential  spline  with  N,  =  N",,  =  0. 
Then  the  remaining  ^^N.}._„   are  determined  from 
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( 

Dj 

«3 

b2/e 
b3/e 

\ 

V 

• 
• 
• 

= 

• 
• 
• 

a 

1 

"n-1 

^N-l/^ 

1 

a 

-s;  J 

L  \/^ 

or 


AN   =  b. 


U 


with 


P2  =  a 


^i  =  ^  -  pT 


(i  =  3, . . . ,N) . 


i-1 


It  is  evident  that 


^  =  a  =  P,  >  P,  >  ...  >  P   ,  >  P   >  ^+  ^^  -^ 
e         2     3         ^N-1    N       2 


=  I  ±  /C|)  -1   >  2  .  /3 


M  i  57  <  I  -  /^'  -'  <  2  -  /J  . 
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In  particular,  letting  N(x)  =  N.(x)   we  have  (after 
some  lengthy  computations) 


N. 


N, 


1  -" 

-  w:  ^i+i  ' 

1 


N 


J-1' 


N 


J+1' 


P     .   i-1  ' 


1   ^   ^  f    *    *    •    t  J        ^ 

i  =  j+2, ,N 


_  II 

N. 
D 


he 


Pj^T  "  Pn-j 


4  - 


J-1 


^N-i" 


•   j  7^  1,2,N,N+1 


We  then  have  the  following 


Theorem.   For  N(x)  =  N.(x)  ;  j  =  3,...,N-1  and  either 
X  e  [x^,x^_|^^];  j+1  1  i  1  N  or  X  e  [x^_^,x^]  ;  2  <  i  <^  j-1 
we  have 

|N(x)  I  <  (1  -  J^j  .  h^  •  |nV|. 
/3  ^ 


Proof:   We  take  the  case  x  e  [x 


Then   N^_^  =  p"-*-  N^  and 


N. 
N(x)  =  -i 


i-1 

sinh  p(x-x-_,) 
sinh  ph 


.   ,x.] ;  2  <  i  <  j-1. 
i_l   1     -   - 


,     sinh  p(x.-x) 


i-1 


sinh  ph 


x-x 


i-1 


Pi-1 


x^ 
h 


N(x)  I  <  h^fl  -  ^1  •InVI 


Similar  considerations  apply  to  the  other  case. 


Q.E.D. 
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Corollary.   For  the  above  case  we  have 

|N(x)|  <  I  .  I  (/3  -  l)(2  -  /3)^  ^ 

with  a  similar  result  for  the  other  case. 

Proof;   Our  recurrence  relations  for  'fN,  l^.^^   ^ 

|n.  I    <  — •  (2  -  /33     .  Q.E.D. 

^       /3  he 

The  cardinal  split->e formulation  is  not  useful  for 
calculations  because  of  the  need  to  calculate  and  store 
a  basis   function  for  each  data  point.   It  does  however 
provide  great  insight  into  many  numerical  aspects  of  splines. 
For  example,  the  above  considerations  allow  us  to  determine 
the  effect  of  a  change  in  some  data  value,  say  f^  -»•  fi+  ^i* 
We  simply  add  the  term  £..C.(x)  to  the  spline.  Similarly, 
a  study  of  Cq(x)  and  Cj^^2  ^^^  allows  one  to  discuss  the 
global  effect  of  the  end  conditions. 
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I. 11.   B-Spline  Basis 

We  now  construct  another  basis  for  the  space  of 
exponential  splines  with  given  tensions.  This  basis  will 
be  constructed  so  as  to  have  minimal  support  [5,9,34,36]. 
We  have  the  following 

Lemma.  Any  exponential  spline,  B(x),  with  a  support 
of  fewer  than  four  intervals  is  identically  zero  (assuming 
that  there  are  at  least  five  knots) . 

Proof;    At  the  end  points  of  the  support  of  B(x)  we 
must  have  b  =  B'  =  B"  =  0  since  B(x)  e  c^.   These  six 
conditions  and  the  spline  continuity  constraints  allow  us 
to  explicitly  calculate  B(x)  for  the  cases  of  support  of 
one,  two  and  three  intervals.   In  all  cases,  a  direct 
calculation  reveals  that  B(x)  =0.   If  we  assume  uniqueness 
of  the  splines  so  defined  we  can  obtain  this  result  in  the 
following  more  elegant  fashion.   (Just  show  that  the  required 
matrices  are  invertible  for  uniqueness.)    For  the  case 
of   one   interval  we  have   four  undetermined 
coefficients  and  six  end  conditions,  hence  only  the  zero 
function  satisfies  these  constraints.   For  two  intervals  we 
have  eight  coefficients,  six  end  conditions  and  three 
continuity  conditions  and  again  the  zero  function  is  the 
solution.   For  three  intervals  we  have  12  coefficients,  six 
end  conditions  and  six  continuity  conditions.   Once  again 
we  lack  the  extra  coefficient  by  which  to  specify  a  nonzero 
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function  value.   Finally,  with  four  intervals  we  have  sixteen 
coefficients,  six  end  conditions  and  nine  continuity 
constraints.   We  may  use  the  extra  degree  of  freedom  to 
specify  B(x)  ^  0  at  some  point.  Q.E.D. 

We  now  proceed  to  define  such  a  "B-spline".  To 

simplify  the  computations  we  restrict  our  attention  to 

2 
uniform  mesh  and  tension.   Given  five  points  {x«+ih}.__2   we 

require  that 

B(xQ-2h)  =  B'(xQ-2h)  =  B"(xQ-2h)  =  B(xQ+2h)  =  B'(xQ+2h) 

=  B"(xQ+2h)  =  0. 

We  normalize  so  that  B(x»)  =  1.   Taking  our  cue  from  the 

cubic  B-spline  we  set  B' (x^)  =  0,  i.e.  we  take  into  account 

the  symmetry  inherent  in  the  definition  of  B(x).  This  allows 

us  to  solve  for  B(x)  on  [x^,x-.+2h]   and  then  reflect  this 

about  the  line  x  =  x_. 

We  set 

P(x-Xq)     -p(x-Xq) 
a,+b,  (x-Xf,)+c,e       +d]^e        ,  ^n^'^l.^n'^^ 

B(x)  =  <(   ■"   -^     "        p(x-XQ-2h)     -p(x-x  -2h) 
aj+b- (x-XQ-2h)+C2e  ^^o^  ' 

XQ+h£x<^XQ+2h 

P(x-Xq)     -p(x-Xq) 
b,+pc-,e       ~P*^iS        '  ^0— ^— '^O'*'^ 

p(x-XQ-2h)      -p(x-XQ-2h) 
^2^P^2®  -pd„e  ,       XQ+h<x<XQ+2h 

2    p(x-Xq)   2    -p(x-Xq) 

|p  c,e       +p  d,e        ,  ^0— '^— '^O"'"^ 

2    p(x-XQ-2h)   2    -p(x-XQ-2h) 

Lp  C2e  +p  d2e  ,  XQ+h£x£xQ+2h. 


B'(x)  = 


B"(x)  = 
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The  end  conditions  and  continuity  conditions 


hj   +  PC2  -  pd-   =   0 

C2  +  d2   =   0 

a,  +  C-,  +  d,  =  1 

b,  +  pc,  -  pd,  =  0 

a^^  +  b^h  +  c^eP^+  d^e"Ph  =   ^2   '   ^2^   +  ^2^"^^  "^  ^2^^^ 
b-,  +  pc-j^e^   -  pd,e~P  =  b2+pc2e  ^  -pd-e'^ 
c^eP^  +  d^e-Ph  =  C2e-P^  +  d^e"^^ 


a^   =    0,    c^   =   -   b2/2p,  d2  =  b2/2p  ,  b2  =  p/2 (phc-s)  , 

2  -, 
c  tc-ij  +  g 

2 


_  phc 


'1    phc-s  '   "^1 


b,  =  H 


(phc-s) (1-c) 


^1  =  4 


rP^(l-c)+s(e-P^-l) 


(phc-s) (1-c) 


'^1  =  4 


>^(c-l)+s(eP^-l) 


(phc-s) (1-c) 


B(x)  = 


B'  (X)  = 


a, +b, (x-Xq) +c, e 


P(x-Xq)     -p(x-Xq) 
+d,  e 


Xq  £  X  <_  XQ+h 


b2[(x-XQ-2h)-  i  sinh  p(x-XQ-2h)],     Xg+h  £  x  <  XQ+2h 


P(x-Xq) 
b,+pc,e       -pd,e 


-P(x-Xq) 


(  b2[l-cosh  p(x-XQ-2h)]  , 
2    P(x-Xq)   2    -p(x-Xq) 


B"  (x) 


P  c^e 


+p  d^e 


.  -b^p  sinh  p(x-XQ-2h)  , 


^0  1  ^  -  '^o-'^ 


XQ+h  i  X  <  XQ+2h 


^0  1  ^  -  ^0""^ 


XQ+h  1  X  <  XQ+2h. 


Hence , 
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^"(Vh)=  2(phg-s)  "^   as  p^  0      . 

which  are  the  correct  cubic  spline  limits. 

Now  add  the  points  x_2/  x_,  ,  Xq,  x.,  - '  ^^^+3'  '^N+4  ^° 
our  set  of  knots  in  the  obvious  fashion.   Denote  by  Bj^(x) 
the  B-spline  centered  at  x.  (i  =  0,...,N+2).   All  the  B. 
are  simply  translates  of   one  another .   We  now  show  in  a 
constructive  fashion  that   {B.(x)}._f,  forms  a  basis  for 
the  exponential  splines  on  this  mesh  with  tension  p. 

Let 

N+2 
T(x)  =  I      a.  B. (x)  , 


i=0   ^   ^ 


then 


Also 


N+2  ,  , 

T(x.)  =  J^a.  B.(x.)  °  2(lZ-s)    ^j-l"»j^2(phg-s)Vl 

j  =  1, . . . ,N+1. 


N+2 


T- (x)  =  I      a.  B\ (x) 
i=0   ^ 


N+2 

I 
i=0 
Finally, 

N+2 


N+2  /-,   X  /   ^^ 

T'  fx  ^  -  y   a   B-  fx  ^  =   P^^"^^   a    +   P^*^"^^   a 
^  j^  "  --n   i  ^i^'^j'    2(phc-s)  ^j-1  ^  2(phc-s)  ^j+1' 


T"(x)  =  I      a.  B.  (x)   =* 
i=0   ^ 

N+2  2  2 

T"(x.)  =  I      a.  bV{x.)  =  ^j-f^ ^  a.  ,  -   P  ^,  a. 

]'   ^^Q   1   ID     2{phc-s)   :-l    phc-s   3 

2 
4.    P  s     -, 
2 (phc-s)  ^j+1* 
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Let's  first  take  slope  end  conditions.   We  then  have 


P(l-c)   -   .    P(c-l)   _   _  ^.> 
2(phc-s)  ^0     2{phc-s)  ^2  "  ^1 


s-ph  s-ph        _  _     .  _  , 

2(phc-s)  ^j-1  "^  ^j  +  2(phc-s)  ^j+1  ~  ^j  '  3  -  ■!-/••. 


,N+1 


P(l-^)   a.  +  P^r^)   a 


2(phc-s)   N    2 (phc-s)   N+2 


=  f 


or,  in  matrix  form. 


N+1 


P(l-c) 
2 (phc-s) 


P(c-l) 
2 (phc-s) 


2 (phc-s) 


2 (phc-s) 

P(c-l) 
2 (phc-s) 


I—           ^ 

*~               — 

^0 

*i 

^1 

• 

• 

• 

= 

• 
• 

^N+1 

^N+1 

LN+2_ 

f  1 

This  system  is  diagonally  doninant  and  hence  x (x)  is  uniquely 
expressible  in  this  form. 

Note  that  we  can  reduce  this  system  to  tridiagonal  form. 
Multiply  the  first  equation  by  — (    ^-i  ^  ^i^^  ^^^   it  to  the 
second;  multiply  the  last  equation  by  — ..._    ,  and  add  it  to 
the  equation  above  it. 

Now  take  the  case  of  second  derivative  end  conditions. 
We  then  have 


P^s 


p  s      ,    p  s 
a-  -  —t a,  +  -  -^ 


2 (phc-s)  "0    phc-s  "1  '  2 (phc-s)  ^2    ^1 


2 (phc-s)  ^j-1  +  ^j  +  2 (phc-s)  ^j+1 


=  fj  ;  j=l,...,N+l 


P^= 


_  P  s 


P^s 


2 (phc-s)  "N   phc-s  "N+1  '  2 (phc-s)  ^N+2    ^N+1  ' 
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or,  in  matrix  form. 


P^s 


2(phc-s) 

s-ph 
2(phc-s) 


2(phc-s)   phc-s   2(phc-s)_ 


N+1 


N+2 


'I 


"N+1 


f  " 

N+1 


Again  diagonal  dominance  implies  a  unique  representation  of 

this  form  for  t (x) . 

We  can  also  reduce  this  sytem  to  tridiagonal  form. 

Multiply  the  first  equation  by  ^ —  and  add  it  to  the  second; 

P  s   ,  _ 

multiply  the  last  equation  by      ^  ^      and  add  it  to  the 

p^s 

equation  above  it. 

Note  that  in  either  case  no  more  than  four  basis 
functions  contribute  to  the  value  of  t(x)  at  any  point. 

In  addition  to  the  value  of  the  B-spline  representation 
as  a  theoretical  tool  and  a  computational  device,  it  is  also 
of  much  utility  to  interactive  computer  graphics.  This 
utility  stems  from  the  local  nature  of  the  basis.  A  spline 
created  as  a  linear  combination  of  B-splines  can  be 
displayed  with  the  user  then  being  able  to  alter  {a.}._-. 
As  each  change  affects  only  four  intervals  the  user  can 
experiment  and  design  a  pleasing  curve. 
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There  is  even  a  more  subtle  aspect  of  such  interactive 
design.   Recall  that 

J         2(phc-s)   j-1     J         2(phc-s)  j  +  1        -' 

If  we  now  change  t   to  '^■^.+  ^   while  simultaneously  changing 

\-l   t°  \-l   *  2(phg-s)  '      ^-^  ^k+1  t°  \+l  +  2(ghg-s)  ^ 
then  this  simply  amounts  to  redefining   a,  ->■  a, +6. 

Hence,  we  can  move  groups  of  points  without  having  to 

compute  a  new  spline! 

It  is  anticipated  that  many  other  aspects  of  cubic 

B-spline  theory  can  be  extended  to  this  more  general 

context. 
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Part  II:   Computation  of  Exponential  Splines 

II. 1.   Overview 

In  this  second  part  we  concern  ourselves  with  matters 
related  to  the  computation  of  exponential  splines.  First 
we  detail  the  direct  solution  of  the  spline  equations 
including  a  discussion  of  matrix  condition  numbers.  The 
iterative  solution  of  the  spline  equations  is  then 
considered.   Next  is  a  thorough  discussion  of  spline  end 
conditions.   We  then  produce  a  power  series  representation 
that  avoids  the  possible  loss  of  accuracy  in  the  evaluation 
of  the  hyperbolic  functions  for  small  arguments.  This  is 
followed  by  the  development  of  tension  parameter  selection 
algorithms  that  produce  the  shape  preserving  interpolants 
previously  shown  to  exist.   The  periodic  exponential  spline 
is  then introduced  and  its  computational  aspects  are  surveyed, 
A  variety  of  numerical  considerations  next  occupy  our 
attention.   Finally,  a  sequence  of  examples  is  presented 
which  demonstrates   the  inherent  superiority  of  exponential 
splines  to  cubic  splines. 
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II. 2.   Direct  Solution  of  the  Spline  Equations 

As  we  have  seen,  the  formulation  of  the  spline  equa- 
tions in  terms  of  either  first  or   second  derivatives  leads 
to  a  (symmetric)  tridiagonal  system.   These  equations  share 
the  property  with  their  cubic  spline  counterparts  that 
they  can  be  solved  in  0(N)  arithmetic  operations. 

The  following  algorithm  [2]  may  be  used  to  solve 
for  t!  or  t'.'   (i  =  1,...,n+1):  let 

PK^  =  DIAG^ 
Q,   =  -E,/PK, 


U, 


B,/PK, 


then  set 


PK.  = 


"i 


\-i  '  Qi-1  +  °i^^i 

-E./PK. 
(Bi-Ei-l-"i-l)/P^i 


(i=  2,.  .  .  ,N+1) 


and  finally 


T"    =  U 
N+1     N+1 

II  11 

T.     =Q.-T..+U.   , 
X        1   1+1     1 


(i=  N,.  .  .  ,1)  . 


In  the  above,  DIAG.  (i=l, . . . ,N+1)  are  the  diagonal  elements, 
E.  (i=l,.,.,N)  are   the  off-diagonal  elements,  E   ,  =0,  and  B^ 
are  the  elements  of  the  right  hand  side  vector. 

A  quantity  of  interest  in  the  present  context  is 
the  condition  number  of  the  spline  matrix  [35] .  Let  us  first 
take  the  first  derivative  formulation.   Gerschgorin ' s 
theorem  reveals  that  the  largest  eigenvalue  of  A  will  be 
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less  than  or  equal  to 

d.  ,       d.      ©4  1        e. 


^2     2    "^,2   2    Tl     2    "^  72   2 


Pi-l^i-l^i-1  .      Pi^i^i 


Pi-lhi-l^i-l-2Si-i+Pi_ihi_i    p.h.c.-2s.+p.h. 

and  that  the  smallest  eigenvalue  of  A  will  be  greater 
than  or  equal  to 

d.,       d.        e.,        e.     P-iS.,    p.s. 
1-1   ,     X  1-1  1     '^i-l  1-1  .  ^1  1 


+ 


,2     2    "2   2    ,2     2      o2   2     c.  ,-1     c.-l 
d.  ,-e.  T    d.-e.    d .  , -e .  ,    d.-e.      i-l       i 
1-1   1-1    1   1    1-1   1-1    1   1 

Hence,  _ 

p. s .h. 

II All,,  <  2  max  — T- ^^^  ^ — T— 

2  —     .   p. h. c • -2s . +p. h. 

1  "^111    1-11 

and 

"^   "2I  2  "^^^  F^7  • 
1   "^1  1 

For  the  second  derivative  formulation  the  same  line  of 

reasoning  yields 

c.-l 

11  All  „      <       2   max  — 

2       —  .        p.s. 

1        "^1    1 

and  2 

,  ,  p. s .h. 

II, -111       ^1  "^111 

II A      II  „    <    ■=-  max  ^   ,     ^ — o^    .^   V.      • 

2  -  2       .  p.h.c.-2s.+p.h. 

Power  series  expansions  establish 

c .  ,    h. 

-i^  <  ~ 
p.s.  -  2 

p. h. s .         , 
^111     ^6 


p.h.c . -2s .+p.h.  —  h. 
^111    1  ^1  1      1 
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We  thus  have  the  following  situation: 

(i)    first  derivative  formulation  - 

mm 
(ii)   second  derivative  formulation  - 


II  aO  2   1  h 
IIA~^II.  < 


2  -  h  .  • 
min 

Hence  in  both  cases  we  have  the  matrix  condition  number 
K(A)  s  llAll^OA"-'-y^   <  ^^ 


2  "   °2   -  h  . 
min 
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II. 3.   Iterative  Solution  of  the  Spline  Equations 

The  spline  equations  in  terms  of  second  derivatives 
with  slope  end  conditions  are 


^N-1   Vl+'^N  ^  ^ 


'N 


1 

[^  ] 

t" 

''2 

• 
• 

= 

• 
• 
• 

N 

T" 
N 

\ 

N_ 

N+l_ 

_  Vi_ 

or  AX"  =  b  with  the  obvious  definitions. 

Let  A  =  D  +  0  where  D  is  diagonal  and  0. .  =  0  Vi. 
Then  (D+0)T"  =  b  which  implies  that  t"  =  -d'-'-ot"  +  D~''"b, 
Define   R  =  D  0  and  r  =  D  b.  Therefore, 

T"  =  -  RT"  +  r. 

In  any  iterative  scheme  [20]  derived  from  this  relation 
due  consideration  must  be  given  to  the  eigenvalues  of  R. 
Explicitly 


R  = 


0     ®i/^i 
e^/(d^+d2)    0    e2/(dj^+d2) 


^N-l/^Vl+^N^  °     V^^N-1+^N^ 
Note  that,  although  R  is  not  symmetric,  we  do  have 
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d1/2j,  1,-1/2  ^  ^-1/2^  ^-1/2 


which  is  symmetric.   Hence,  R  is  similar  to  a  symmetric 
matrix  thus  implying  that  its  eigenvalues  are  real. 
Moreover, 

Rx  =   Xx  =* 
Rx  =  -Xx 

where  x  is  obtained  from  x  by  altering  the  sign  of  every 
other  element. 

Gerschgorin' s  theorem  then  allows  us  to  conclude  that 
all  of  R's  eigenvalues  satisfy 

[    1     1-1   1     N  J 

Young's  theory  then  allows  us  to  use  simultaneous  over- 
relaxation 

j^„j  (n+1)  ^  ^^^  _   j^j^„^(n)j  _  (a)_i)  [T"]  ^"^^ 

and  the  optimum  relaxation  factor  will  be  given  by 

*        2 

OJ   =  = . 


1  +  /1-a2 

max 

As  an  estimate  of  X     we  use  y.  To  see  that  this  is 

max 

a  reasonable  choice,  consider  the  case  of  uniform  mesh 
width  and  tension.  In  this  case 

--^ 

T 

and   Rx  =  ux  with  x  =  [1, ,1]  .   I.e.    y  =  A     and 

max 

this  produces  an  exact  value  of  w   !   in  this  instance. 
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the  special  case  of  the  cubic  spline  yields  y  =  1/2  and 
w*  =  4(2  -  /3)  . 

A  possible  starting  point  for  the  iterative  process 
would  be 

(0)    ^'^-• 


[I-] 


h.  ,+h.  • 
1-1   1 


The  spline  equations  in  terms  of  first  derivatives 
with  second  derivative   end  conditions  are 


"^1         ^1         1 1  r^2~^i 

,2  ^2   1  ^    2   2   2    d^-e^      h, 

d.-ej    Li  d  L       J    L 


-  'l 


^i-1 


^2     2 
^i-l-^i-1 


^i-1  ^ 


^i-1 


d. 

1 


^2     2 
d .  , -e .  , 
1-1   1-1 


d.  -e. 
1   1 


M  + 


e . 

1 


^2  2 

1      1 


1+1 


d .  T -e .  T 
1-1   1-1 


h.  ,       d.-e. 
1-1       1   1 


f  .^,-f . 
1+1   1 


h. 

1 


i=2, ,N 


e„ 

r  d  ~i 

N 

T  •    + 

N 

^2      2 

N 

^2      2 

<3» -e„ 

d».,-e„ 

|_  N      NJ 

L  N      NJ 

T  •  ,  =  T "  ,  + 
N+1     N+1 


^n"^n 


^N+l"^N 

^N 

or  Ax'  =  b  with  the  obvious  definitions. 

The  iterative  treatment  of  this  system  proceeds  along 
precisely  the  same  lines  as  before.   However,  now 

XI  <  ru..   <^^      e._;^(d^-e^)+e.(d^.-^-e^_-^)   e^  . 

A  I  <  max  «;  ^-  ,   ^ ^ ^ ^ ,__).=:  y  <  _ 


d 


1  d,  T  (d?-e?)  +d.  (d?    ^ 


'i-l^"i  "i' 


'i'^i-l  ^i-1 


-e .  , )    N 


Once  again,  y  is  used  as  our  estimate  of  X    with  the 

max 

familiar  justification. 
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II. 4.   End  Conditions  _ 

In  our  previous  discussions  we  have  always  assigned 
one  boundary  condition  at  each  end  of  the  interval  of 
interpolation,  i.e.  a  boundary  value  problem.   It  occurs 
to  us  however  that  we  could  rightfully  assign  both  end 
conditions  at  one  end,  i.e.  an  initial  value  problem.  This 

would  allow  us  to  concatenate  sequentially  defined  splines 

2 
in  a  C   fashion.   To  facilitate  clarity  we  will  restrict 

ourselves  to  uniform  mesh  and  tension. 

If  we  choose  to  specify  t'  =   <p '    and  t"  =  (p"   then  we 

can  write  the  resulting  equations  as 


^1 
^2 
^3 


N+1 


(f2-fi)/h^-r 


N 


let 

9tV 
^i   -   H'    ' 

8TV 

^i  -  H" 

a^  =   0 

a,   =   -  1 
2             e 

A^  =   1 

A      =    -   ^ 
^2             e 

ea.  _+2da.  ,+ea.  =  0 
1-2    1-1   1 


eA^_2+2dA. _,+eA.  =  0  . 


Thus  we  consider  the  difference  equation 
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Vl  ■"  ^^^k  "^  ^k+1  =  °  '   ^0  '  ^1   ^^''^''' 
with   y  =  d/e.   Assuming  a  solution  of  the  form 


Zv   =    O'q      =*   l+2yq+q^   =    0   =>  q,    =    -y-/y^-l    <    -1, 


2 

q_   =   -y    +    /y    -1    <    1.      We    introduce   the   basis    sequences 

defined  by 

Vl   ^   2yxj^   +   Xj^^^  =   0    ;      Xq  =   1,      X^  =   0 

Vl    +    ^^\   +   Vl    =    0    ;      Yq    =    0,      Y^   =    1        - 

V  =  ^2         n  ^1         n 
^n             q2-qi    "^1    ~   q2-qi    "^2 

V  1  n    .         1  n 

V  =    -   q,    +   q^  . 

n  ^2~^1      ■"■        ^2~^1   ^ 


Hence, 


and   therefore 


Z   =  Z.-X  +  Z,  -Y 
n     On     In 


a  =  -  1  Y   , 
n     e   n-1 

A   =  X   T  -  -  Y   , 
n    n-1    e   n-1 


We  now  see  why  such  a  specification  is  not  suitable.  As 
|q, I  >  1   we  have  the  effect  of  a  perturbation  in  the  initial 
conditions  increasing  exponentially.   In  this  sense  these 
end  conditions  are  ill-conditioned. 

Let  us  use  this  technique  to  study  the  specification 
of  second  derivatives  at  the  two  ends.   The  system  of 
equations   is 
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9T7 
Letting  a^  =  ^   ,   A^ 


)] 

^2 

^2 

• 

• 

• 

— 

• 

• 

• 

e 

T" 
N 

^N 

1 

T  " 
_     N+l_ 

i\)" 

8t'.' 

1 

we  have 

a,  = 


1,  a^^^  =  0,  A^  =  0,  A^^j 


=  1   and 


Therefore 


a._^  +  2ya.  +  a.^^  =  0 


A.  ,  +  2yA.  +  A. .,  =  0 
1-1       1     1+1 


n-1  .    „n-l 
•^n  =  ^1^1    -^  ^2^2 

,   n-1  ,  ,   n-1 


^2^2 


We  demonstrate  the  determination  of  the  coefficients  for  a 
The  boundary  conditions  give  us 


n 


c^  +  C2  =  1 

N  ^     N    o 
c,q,  +  C,q-  =  0 


^2 


N 


-1^1 


'2^2 


^1-^2 


^2  = 


N   N 
^1-^2 


Similarly 


n-1  N 


N  n-l 


-  ^1   ^2  "^  "^l^^l 


n 


A   = 
n 


N 


N 


qi  -  ^2 


-    ^^ 


N+l-n  N 


^2  ■*■  "^l^^l 


N  N+l-n 


N 


-N 


^1  -  ^2 


Note  that  since  <^-i^2   ~   ^   these  may  be  rewritten  as 
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N-n+1   N-n+1 


A   = 
n 


n-1 


-  q 


n-1 


^1 


-  q- 


N 


which  are  clearly  well  behaved. 

Now  consider  the  specification  of  first  derivatives 
at  both  ends.   The  system  of  equations  is 


^1 

T" 

2 

(f2-f^)/h^-4>' 
^2 

• 
• 
• 

= 

• 
• 
• 

2d 

e 

T" 
N 

^N 

e 

d 

N+1 

.^•-(^N-Hl-V/hN, 

9  T  V         3  T  V 
Letting  a^  =  j^   ,    A^  =  ^^  we  have 


w 


da^+ea2  =  -1,   ea^+da^^^   =  0  ,   dAj^+eA2  =  0,   eA^+dA^^^^  =  1 
^^1+  ^2  =  "^/^'  V^^N+1   =  °  '   ^^1"^  ^2  =  °'    ^j"^^Vl  "  ^/^ 


Once  again. 


a._^  +  2ya.  +  a.^^  =  0 


Ai_i  +  2yA.  +  A.^^  =  0 


n-1  ,    „n-l 

a„  =  c^L^i    +  ^2^2 

,   n-1  ,  1   n-1 

A^  =  k^q^    +  k2q2 
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Therefore 

a^  =  c^  +  C2 

together  with  ya^+a-  =  -1/e  =* 

c^(y+q^)  +  C2(y+q2)  =  "  1/e 

Also 

N-1.     N-1 
^     =   c^q^   +  C2q2 

N   ^     N 
^N+1   =   ^1^1   ""  ^2^2 


together  with  a  +ya^^j^ 


=    0     => 


C^(qf  ^+yq^)  +  C2(q^-^+yq^)  =  0  . 


Hence, 


1 


N-1  ^  ,,  N 
^2        "^2  ' 

""l  ^    ^  '  [(y+q^)  (q^-^+yq^)  +  (y+q2)  {q^'"^+yq^)  1 

N-1  _^  ,  N 
1    ^1    -^  ^^1 

""2  "  "  e  •  f  (^^q^)  (qf  1+yq^)  +  (y+q2)  (qf  ^+yq^)  ] 
In  a  similar  fashion  we  obtain 

,,__!.  '^     ^2 

^         ^      [  (y+q^)  (qf  ^+uq^)  "  (y+q2)  (qf^+i^qi)  i 
^  1     ^^   ^1 

2  "    ^  '  [(y+q2)  (qf  ^+yq5)  -  (y+q2)  (qf^+l^q?)  1 

These  formulae  are  of  great  utility  in  the  following 
application.   Suppose  that  we  spline  fit  a  collection  of 
data  and  then  decide  that  the  end  conditions  that  were 
used  were  inappropriate.   Rather  than  computing  a  new  spline 
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we  may  use  the  above  to  update  {t'.'}._^. 

For  example,  consider  the  case  of  second  derivatives 
specified  at  both  ends.   The  old  spline  equations  are 

AT"  =  b 

and  the  new  spline  equations  are 

A(t"  +  6t")  =  b+  6b 

rn 

where  6b  =  [fitf)"   0   ...   0   6i|;"]  .   So  we  may  solve 
A'6t"  =  6b  and  add  the  result  to  t".   Here  6t"  is  simply 
a  linear  combination  of  the  previously  derived  quantities. 
Specifically  (6t").  =  6(j)" -a  .  +  6ip" -a.  . 

Similar  comments  apply  to  the  case  of  first  derivatives 
specified.   Moreover,  all  the  preceding   analysis  may  be 
extended  in  a  straightforward  fashion  to  the  case  of  mixed 
end  conditions. 

It  is  interesting  to  note  that  if  we  are  confronted 

with  a  spline  code  that  only  accepts  either  t'  =  t'    =  o 

i    N+1 

or  T"  =  T"    =  0  as  end  conditions  we  can  use  the  following 
auxiliary  functions  [5] . 

2  ,^   x2 


A,(x)  =  f(x)  -  I  [-^gEf^  f  (b)  -  1^^  f'(a)] 
A^U)    =    f(x)  -  I    [l|Z|ilf"(b)  +  l^Z^f"(a)]. 


We  then  calculate  A.  at  the  knots,  spline   fit  these 
values  using  the  appropriate  end  conditions  and  then  set 
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f(x)      ~     T(X)      +    1 

Rx-a)^ 
b-a 

or 

f(x)      -     T(x)      +    1 

Rx-a)^ 
_b-a 

2 

f  .  (b)  -  ^^-^^       f  (a) 
b-a 

f"(b)  +  ^^P~-   f"(a) 
b-a 

depending  on  which  end  conditions  were  used. 

We  conclude  this  section  with  a  treatment  of  the 

important  practical  problem  of  supplying  end  conditions 

when  only  data  points  themselves  are  available.   We  choose 

4 
to  consider  f(x)  e  C  [a,b]  as  our  paradigm. 

Let  f  G  c  [x, ,x   ,]  with  M  =  sup [ f    | .   A  theorem 

of  Pruess  [35]  states  that 

llD^(s-T)ll  <  (26/3)  p^    h'^"^  max  Is'.'l  ;   i=0,l,2. 

A  result  of  Kershaw  [25]  states  that 

llD^(f-s)ll  <  c.  •h^"^[h^M+  8  max  |  f  V-sV  [  ]  ;  i=0,l,2. 
1  j     1   D 


Hence,  we  may  conclude  that 


4-i  „...  ,  .. ,  .  ^  ,-4-i 


llD^(T-f)ll  <  (26/3)  p    h"^"^  max  \s".\+   ch 
—    '    '^max        .   '  1  '    1 


M 


3 
+  c.h^"^  •  8  max  |f'.'-s'.'|  ;  i=0,l,2, 

4-i 
Thus,  in  order  to  maintain  uniform  0(h    )  accuracy,  we 

need  only  ensure  that  max  |f'.'-s'.'|  =  0(h  ).   This  is  well 

^  j  '  :  1 ' 

known  to  be  the  case  when  exact  slope  end  conditions  are 
specified.   We  now  investigate  the  effect  of  using 
approximate  rather  than  exact  slope  end  conditions   thus 
extending  known  results  [44]  for  the  cubic  spline  to  the 
exponential  spline.   Recall  that 


62 


As"  =  6b 


where 


b,  = 


f^-f^-h.fi 


b,  = 


^^-\^Vi-Wk+i 


\-l\ 


k=2, ,N 


N+1 


"n+1  ~  ^N  "  \^N+1 


and 


ot. 


*k-l 


\-l^\    ' 


A  = 


k=2, . . . ,N 


We  then  have 


II 2"  A-  III  =  ^   (since  the  sup  vector-norm  induces  the 
max  row  sum  matrix-norm) 
=>  II  a" -^11  =  I  »(|  A)"-'-|l  <  (1/2)/ [l-n^  A-IP]  =  1. 

Now  consider 

As"  =  6b 

where  b   is   obtained    from  b  by   replacing   f,    and   fxr+i    t>y 

_      _  I 

their  estimated  values  f,'  and  f  „ , ,  . 

1      N+1 

This  results  in 
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=» 


A(s"  -  s")   =   6(b-  b) 
s"  -  s"   =   6A"-'-(b-b) 


=»  Js"  -  s"ii  <  6 "Ha" •'■II  'lib-  En 


<   6'llb-bll 


=   6  max{|b^-bj  ,  IVl"  Vl'} 


=   6  max'^ 


If  we  have 

f^  =  f^  +  0(h3)    and    f^^j_   =   f^^^   +  O(h^) 
then       *     ;      f 

max  If.-s.l  <  max  |f'.'-s'.'l  +  max  Is'.'-s'.'l  =  0(h  ) 

as  desired. 

So  we  see  that  we  need  only  supply  a  third  order 
accurate  approximation  to  f (a)  and  f (b)   in  order  to 
retain  the  interior  error  bounds.  This  can  be  achieved  by 
using  the  slope  predicted  by  the  four'-point   one-sided 
difference  formula  derived  from  Lagrange  interpolation. 

This  gives  us  the  following  end  conditions. 

Left-hand  end: 

^i  =  ^1^1  +  ^2^2  ■"   ^3^3  ■"  ^4^4 
with 
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^1  =  - 


[(h^+h2)  (h^+h2+h3)  +  (h^)  (h^+h2+h3)  +  (h^^)  (h^+h2)  ] 
(hj^)  (hj^+h2)  (h^+h2+h3) 


(h3^+h2)  (h^+h2+h3) 
c     =        

(h^) (h2) (h2+h3) 


^3   =   - 


^4    = 


(h^)  (h3^+h2+h3) 
(h^+h2)  (h2)  (h^) 
(hj^)  (hj^+h2) 


(h^+h2+h3) (h2+h3) (h3) 
Note   that 


Cj^   =   -    (C2   +   C3   +   c^) 


Right-hand   end; 


^N+1   -    ■   "^4^2    "   ^aVl    "   '^2^N   "   Vmi 
with 


^1  =  - 


^2    = 


^3    =    - 


( Wi)  ( Vi^  <  V2) 


^4    =         


^ VV1+V2)  (Vl-^\-2^  ( V2) 
Note   that 

^l   =    -    (^2  "^  ^3  "^  ^4^  • 
We  have  the  following  error  estimate  for  the  left  hand 
end  condition 
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*;-^i  = 


(4) 


(5) 


4! 


(h, )  (h,+h„)  (h,+h-+h,)  ,  ?e[x,  ,x.] 


The  corresponding  estimate  for  the  right  hand  end 
condition  is 


ft   -ft 
^N+1   N+1 


^^^TT^  (\)  %+Vl)  ( Wl^V2)  ' 


?^  tXj^_2''^N+l^ 


We  establish  the  result  for  f^.  Let  fee  [x^,x^]  and 
define   the  linear  functional  L[f]  =  f  ix^)  -   (c^f ^+C2f 2+C3f j+c^f 4). 
Now  L  annihilates   all  polynomials  of  degree  3  and  hence 
Peano ' s  theorem  guarantees  that 


where 


and 


L[fl  =  I 


f ^^^  (t)  K(t)  dt 


K(t)  =  yj-  L[(x-t)^]   (considered  as  a  function  of  x) 


(x-t);  = 


(x-t)-"  ,   X  >  t 
0    ,   x  <  t 


Now 


L^[(x-t):J]  =  3(x3^-t); 


3  3 

[CjL(x-j^-t)^  +  C2(x2-t)^ 

+  C3(x3-t)^  +  C4{x4-t)^] 


=  6-K(t) 


Therefore 


6-K(t)  = 


-[c^(x^-t)  +  c-(x,-t)-'+  c.(x.-t)  ]  ;  x,^t<x. 


-[c,(x,-t)^+  c.Cx.-t)-"] 


-[C4(x4-t)-^] 


;  X2<t<X3 
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A   tedious  calculation  verifies  that 

K(t)  <  0  ;       t  e  [x^^x^l . 

A  strong  form  of  Peano ' s  theorem  then  allows  us  to  conclude 
that 

L[f]  = 4!^  L[x^]  ;  5  e  [Xj^^x^]  . 

An  equally  arduous  computation  then  shows  that 

L[x^]  =  -h^(h-,^+h2)  (hj^+h2+h2)  . 


Therefore 


I.e. 


L[f]   =  -  - — jA^  (h^)  (h3^+h2)  (h^+h2+h3)  , 


f '  (x^)-f' (x^)  =  -  - — jy^  (h^)  (h3^+h2)  (hj^+h2+h3)  ,K    e  [x^,x^] 

On  a  uniform  mesh  with  constant  tension  there  is  an 
increase  in  the  order  of  approximation.   Hence,  in  this 
instance  we  should  provide  higher  order  estimates  of  the 
end  conditions.   We  simply  use 

K  =    2k  f-  5°^l  +  ^"2  -  72^3  +  32f4  -  6f3] 

W   =2^1^  VS  -  32fN-2  -^  ^2f^_i  -  96f^  +  50f^^,] 

which  derive  from  a  quartic  Lagrange  interpolation  [1] . 
The  error  estimates  are 

f^-f^  =  I  h"^  f  ^^^  a)    ,  5e  [xj^,  X5] 
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The  above  considerations  for  first  derivative 
end  conditions  with  second  derivatives  as  unknowns  are 
easily  extendable   to   second  derivative  end  conditions, 
Furthermore,   both  of  these  cases  may  also  be  applied 
to  the  equations  with  first  derivatives  as  unknowns  with 
similar  results. 
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II. 5.   Alternative  Power  Series  Representation 

The  next  problem  to  be  treated  is  the  loss  of 

significance  when  evaluating   sinh  (p-h.)   for  small 

X   ^-x 

e  ~  e 
values  of  (p.h.).   Specifically,  since  sinh  x  =  ~ 

X  X  ^ 

for  |x|  <<  1  we  have  e  =  e   =  1,  an  invitation  to 
"catastrophic  cancellation."   Such  small  arguments  would 
arise  naturally  but  the  scaling  suggested  below  makes 
these  considerations  even  more  critical.   Hence,  for  small 
values  of  (p-h.)  (say  <  0.07),  we  would  like  to  resort  to 
a  power  series  representation  of  the  hyperbolic  functions. 
We  note  that  such  measures  are  unnecessary  on  IBM  hardware. 
However,  their  inclusion  enhances  software  portability. 
Moreover,  the  resulting  formulae  allow  the  use  of  p.  =  0   Vi; 
thus  the  cubic  spline  may  be  used  as  the  zeroth  iterate. 
We  proceed  as  follows: 


h. 

1    6 


(l  -  15  P-Of  ^  W  pW)  *  °'pM'  • 


Note  that  p.  =  0   Vi  =*■ 

h. 

1 

^i  =  T  ' 
h. 


which  are  seen  to  produce  the  system  of  linear  algebraic 
equations  for  the  cubic  spline  with  specified  derivative 
end  conditions  [2].   That  is. 
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h,      h,        f  ^  -  f , 
3   16   2     x^  -  X, 


-  f  (a)  =  b^  , 


1.  -        h.  ,  +  h.      h. 

■^f^   XV  ,  +   ^~-^- TV  +  -J^  tV^,  s  b.  ,   (i=2, 

6    1-1        3      1    6   1+1     1  '       ' 


,N)  , 


6   N    3   N+1      ^  ^'^^    x^,^,  -  x„    °N+1 

N+i    N 


We  have  the  following  expansion  for  t  (x) 

+   f. 


T(X)  =  f^ 


'i+1 


i+l 


x-x. 


^i; 


-  -T  (^i+r-)  ^i 


1    7   2.  2  ^   31    4,  4 
^  -  60  Pi^i  ■*■  2520  Pi^i 


^12,       ,2    1,       ,2 

+  T-  Pi^^i+i"^^    -  ;t  (^i+1-^^ 

n. 


7    4.  2  ,       ,2 
-  195  Pi^i  (^i+1-^) 


P^  4.   Pi  ,       ,4 


20hi 


^2  ^^i+l~^'    120  ^'^i+l"^^ 


-^  (x-x.)  T" 
6  ^^   i'   i+l 


,    7   2,  2  ^   31    4,  4 
60  "^1  1    2520  ^1  1 


^12,     ,2   1,     ,2    7    4,2,     ,2 
+  __  p.  (x-x.)  --^  (x-x.)  -  j^  p.h.  (x-x.) 

^i 


P^         4  .   Pi  ,     .4 


20h. 

1 


IT  ^''"''i^  ""  T20  ^^-''i^ 


Note  that,  when  p-  =  0   V  i  ,  we  have 


T  (X)  =  f . 


x.^^-x 


^  fi+1 


x-x. 


h. 

1  J 


-   thi^'^i+l--)  ^i 


1  - 


^^i+l"^^ 

h? 

1 


-  Jh,(x-X,)  T^^, 


1  - 


(x-x^) 


h2 

1 


4"  V» 

which  is  the  equation  for  the  cubic  spline  on  the  i — 
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interval  [2] .   Hence,  a  convenient  choice  for  initial  tension 
parameter  values  is  p.  =  0   V  i  . 

Many  applications  require   the  derivatives  of  the 
interpolant.   For  completeness,  we  include  the  formulae  for 
T'(x),  T"(x),  T'"(x),   in  terms  of  both  hyperbolic  functions 
and  the  alternative  power  series  representation.  Hyperbolic 
function  representation: 

T'(x)  = (TV   cosh  p.  (x-x.)  -  T"  cosh  p.  (x.  ,-x)) 

p^sinh(p^h^) 

^t   ^(fi+l-^i)  -^^  (^i-^i+l^^- 

Pi 

sinh  p. (x-x.)        sinh  p. (x.  ,-x) 

^^'  i+1   sinh(p^h^)       i     sinh  (p^h^) 

cosh  p. (x-x.)         cosh  p. (x. ,,-x) 
ixj    Pi'i+1      sinh(p.h.)     ^i  i   sinh(p,h,) 


p  .  h.  )     '■11    sinh  (p  .  -  , 
'^i  1  '^i  1 


Power  series  representation; 


^'"='  =  FT  (^i+l-'i'  -  =lhi-{"l+l'V3-1'2-'=2+5-''3-4' 


-  TV (T,  +  S'Tj'x^ +  S'T^' 


T"(x)  =  c^h^'lT'^'x^(6'T2+  20'T^'K^) 

-t;;^^.X2(6.T2+20.T3.x2)} 

t:'"(x)  =  -c^h^«|6«T^(T2  +  10'T3X^)  +  6-T\'^^(T2+  10'T3'X2)| 


where 


1    ^  2,  2  ^        4,  4 

Ti  =  1  +  C3  •  Pj^h^  +  C4  .  p^h^ 

2    1  _,       4,  2 
^2  =  ^1  •  Pi  -  i^  -^  ^7  *  Pi^i 

^3  =  ^^8  •  jjl  "^  ^9  •  Pi^  •  Pi 
i 
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^1  =  ^i+1  -  ^  '   ^2  =  ^  "  ^i 


Cj^=l/6,  C3=-7/60,  0^=31/2520,  c^= -7/195,  Cg=-l/20,  Cg=l/120, 

Note  that  in  the  presence  of  scaling  these  formulae  must  be 
modified  accordingly.  e 
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II. 6.  Parameter  Selection  Algorithm  for  Co-Convex  Interpolation 

In  this  and  the  following  section  we  take  up  the  task 
of  tension  parameter  selection.   This  is  the  key  problem 
which  needs  to  be  solved  if  exponential  splines  are  to  be 
useful  in  practice.   A  satisfactory  treatment  is  not  avail- 
able in  the  literature. 

A  previous  section  assures  us  that  for  large  enough 
tension  parameters   the  exponential   spline   interpolant 
is  free  from  extraneous  inflection  points.   The  question 
now  arises  as  to  how  to  choose  p.   (i=l,...,N)  which 
are  sufficiently   but  not  excessively  large. 
Excessively  large  estimates  will  produce  an  interpolant 
which  is  kinky  in  appearance  since  t"  ,  ^i+i  ->  ««  as 
p.->  <»  (k=i-l,i,i+l).  In  this  section  we  present  a  tension 
parameter  selection  scheme  that  answers  this  question  in 
both  a  theoretical  and  practical  sense.   (Note:  Assume  that 
bj^  ?^  0;  i  =  1,..  .  ,N+1.) 

Assuming  xi^  ^  0  (i=l ,  .  .  .  ,N+1)  then  -^'[b^    >    0  (i=l , .  .  .  ,N+1) 
is  a  necessary  and  sufficient  condition  for  no  extraneous 
inflection  points.   Hence,  we  will  iteratively  alter  p^ 

(i  =  1, ,N)  so  as  to  enforce  T^b^  >  0  (i=l, . . . ,N+1) . 

Before  proceeding  we  need  the  following  easily  established 
facts: 

(a)  p^  >  0  =>  d^  >  0 

(b)  ab  >  0   iff  |a-bl  <  max  {|a|,|b|)  . 
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For  purposes  of  illustration,  assxame  that  for  some 
choice,  p^^^     (i=l,...,N),  we  have  T^bj^  <  0  for  some  k 
between  2  and  N  (a  similar  analysis  will  subsequently 
be  given  for  the  end  intervals) .  We  then  have 


Now 


bj^x;;  >  0  iff  ib,^-  (Vi+dj^)^kl  <  "»^^(lbki'  (Vi+^k^l'ki  ^ 


since 

d.  >  0   for  p.  >  0   (i  =  1,...,N)  . 
1  1 

We  therefore  define  Pj^_^  ,  Pj^  so  that  ey^_i    •   e^^  produce 

l^k-i^k-i^Vk+il  <-ax(lbJ,  (d^.i+Vl^kl  ); 

i.e.,  after  freezing  the  t"'s,  we  vary  the  p's  so  that 

all  these  inequalities  are  satisfied. 

Letting 

;.  <  -ax(|bj,(d,.,.d,)h»|)      ^  __  ^_^^    ^ 

^    2  max  (|t^_iU  I  "^k+l  I  ^ 
produces  the  desired  result. 

Define 

maxdbj^l,  (dk-l"^^k^  '"^k'^ 

A   ^ 


2  max(lTj^_^l,|Tj;:_^^I) 

Now,  since 

r  1       ^i 1  /  „2 

®i  =  lh7  -  sinh(p.h.)  ^/  Pi  ' 

we  seek  to  satisfy  the  inequality 


g^(x)  <  0  ,         (i  =  k-1,  k) , 


where 
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1         1 
These  considerations  lead  directly  to 

1        Pi 


h.    sinh(p.h. ) 

-^ 2   "  '    <  ^  . 

Pi 


1       Pi         2 

h7  -  sinhCp.h.)  -  Pi^  <  0  ' 


^  -  p2x  <    ^i 


P^ 


h^   ^i    sinh(p^hj^) 
This  is  certainly  the  case  if 


1  T  2    ^ 

r— -  -  An.  =  0  , 

h.  ^1       ' 

1 


I.e. 


P,  =  (XhJ-1/2. 


Consequently,  we  define 
Pj^=  (^h^)"-'-'^^   (or  perhaps  p^  =  max  ( (Xh^)  ""'■'^^  ,  P^"^^  )  )  ;  i=k-l,k 

(i.e.   we  always  increase  the  p's). 

However,  the  new  tension  parameters  (p's)  will  alter 
the  T"'s   thus  requiring  an  iterative  procedure.  The 
suggested  procedure  is 

pf"-^!'  =p<"'  ...(p-p'">)  . 

It  was  previously  assumed  that  t '.'  jt   0  (i=l,  .  .  .  ,N+1)  . 
It  can  be  shown  [42,43]  that  if  TV  =  0  for  any  2  <  i  <  N 
then  T^"_ii^^,i  ^  0  is  necessary  and  sufficient  for  the 
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prior  analysis  to  hold.   Now  we  have 

(d,.,  +  d.)T?  =  b.  -  e,_,T^_^  -  e,T^^^  , 

and,  since  we   still  assume   b,  7^  0   V  k  ,  we  cannot  have 

TV   =  T'.'.T  =  0  (i.e.  either  e.  ,  or  e .  are  actually  present 
1-1    1+1  1-1     1  -^    '^ 

in  the  equation).   So  to  make  TV  ji   0  when  TV  ,t"    <  0, 
^  1  '  1-1  1+1 

we  perturb  e._,  and  e.   by  incrementing  P^_i  and  p.  by 

some  small  amount,  e.  ' 

It  remains  to  remove  the  assumption  b,  T^  0   V  k  . 

If  b.  =  0  then  the  points  (x.  -,  ,Y .    ■,)  ,    {x.,y.)  and 
1  '^  1-1  -^  1-1     1  -^  1 

(x. ., ,y.^,)   should  be  joined  by  a  straight  line  (with  a 
similar  statement  true  in  the  end  intervals) .   The  two 
remaining  portions  should  then  be  fit  separately  using 
slope  end  conditions  at  x._-,  and  x-,,   derived  from  the  slope 
of  the  straight  line  segment.   This  may  be  accomplished 
implicitly  by  the  following  alteration  of  the  coefficient 
matrix,  A.   Set  as  many  of  the  set  {A.  ,  . ,A.  -.ifA.  ,  .,A.  ._, 
as  exist  equal  to  zero  and  then  proceed  as  usual.  This 
produces  the  desired  t"  (k=l , . . . ,i-l , i+1 , . . . ,N+1) .  The 
interval  [x._-,,x.  ,]  is  then  fit  separately  with  a  linear 
function.   The  points  (x._,  ,y._-,)  and  (x.,,,  Y-.-i)  are 
now  to  be  treated  as  the  right  and  left  hand  endpoints, 
respectively,  of  two  distinct  exponential  splines. 

In  summary,  we  note  that  the  tension  parameter  selec- 
tion problem  is  inherently  nonlinear  (by  virtue  of  the  non- 
linear occurrence  of  p.  in  the  interpolant) .  It  is  then  hardly 
surprising  that  an  iterative  procedure  should  suggest  itself. 


76 


} 


We  now  return  to  the  problem  of  parameter  selection 
for  the  end  intervals.  The  relevant  equations  are 

Vl   +  ^1^2    =  \ 

^n'^n  ""  ^n''n+i  =  Vi  • 

Now  bj^tj^  >  0   iff  |b^-d^T^|  <  max(  |  b^  |  ,  d^JT^I). 
Therefore  define  p,  3  e^   produces  le^^T^I  <  max  ( |  b^  |  ,  d^^lT^I). 
Letting   e,  <  max ( | b, ] ,  d, It"|)  /  |t"|  produces  the  desired 
result.   Hence,  define  X  =  max(Ibj^|,  d^JT^I)/  |x^|. 

"n+iVi  ^  °'     'Vn'  =   IVi-Vn+iI- 

N°^  VlVl  >  °  ^^^  'Vl- Vn+iI  ^  n»ax(|b^,^^|,  ^nI'^N+i'^- 
Therefore  define  p^  3  e^  produces  le^T^]  <  max  (  |  b^^^  |  ,dj^|  t^_^^  | )  , 

Letting  e^  <   max(|b^^^|,  d^^N+l'^  /  '^n'   P^o^^^^^s 

the  desired  result.   Hence,  define  X  =  max  ( |  b^^^^^  I  ,dj^  |  t^_^^  | )  /  |  t^ 
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II. 7.  Parameter  Selection  Algorithm  for  Co-Monotone  Interpolation 


In  this  section  we  develop  a  tension  parameter  selec- 
tion algorithm  that  preserves  any  monotonicity  present  in 
the  data  [23] .   Specifically,  if  the  polygonal  interpolant 
has  slope  of  constant  sign  in  three  successive  intervals 
then  we  select  the  tension  parameters  in  these  intervals 
so  that  i:'(x)  has  this  same  sign  in  the  middle  interval. 
Similar  considerations  apply  at  the  end  intervals. 

We  begin  by  rewriting  the  exponential  spline  as 


p^x      -P^x 
i:(x)  =  A^  +  B^x  +  C^e    +  D^e 


on   [x^,Xj^+i] 


where 
A 


TV 


1         f  j_ 


[f 


T" 

i+1 


i+1 


} 


B. 

1 


'h*i-h 


h. 

1 


TV  ,-TV 
1  +  1   1 


pTh. 


—I    '-'^11—' 
-Pi^i+1 


-TV  e 

1 


2pjsi  ^ 


-PiX.  r 


+  T  "    e 
^   i+1  ^ 


-p.x. 


2p2s. 


-p.h. 
-T^e   ^  ^  +  ^l^^ 


2p^i  u 


-  e^i^^^^  -  ^U,   e 


Pi^i 


^PiXi 

2p2s. 


p.h. 
^i  e  '  '  -  ^i+1 


Hence, 


78 


p. X  -p. X 

T' (x)  =  B^  +  p^C^  e  ^   -  p.D^  e   ^ 


2     P^x       -p^.x 


T"(x)  =  p|[c^  e  ^   +  D^  e   "-  ] 

3     PiX       -p  X 
T"'(x)  =  pf[C^  e  "■   -  D^  e   ^   ]    on   (Xj^,x^^3^)  . 

Assume   that  ''^|''^]^.i  1  0  with  both  having  the  "correct"  sign. 
Therefore,  any  extremum  of  t ' (x)  interior  to  [x.,x.  ,] 
is  characterized  by  t"  (x*)  =0   =* 

2p^x*      D^ 

Now  if  D./C.  >^  0  there  is  no  interior  extremum  and  this 

spline  segment  is  monotonicity-preserving.   If 

P^x*        _ 
D^/C^  <  0  then  e     =  /-D^/C^   =* 


T'(x*)  =B^  +  p^/=c7dT  [sgn(C^)  -  sgn(D^)] 
=  B^+2  sgn  (C^)  p^  v'-C^D^ 
=  B^  -  2  sgn(D^)  p^  >/-C^D^  . 


Also 


T'"(x*)  =  p^  /-C^D^  [sgn(Cj^)  -  sgn(D^)] 


=   2  sgn(C.)  •  p.  /-CD.   =  -2  sgn(D.)  pf  /-CD.   . 
^    1    "^1     11        ^    1   '^i     11 

Therefore 

(i)   C  >  0,  D.  <  0=*  T'"  (x*)  >  0=*  T' (x*)  is  a  (local)  minimum; 

(ii)  C  <  0,  D.  >  0  =»  T '■' (x*)  <  0  =*  X  •  (x*)  is  a  (local)  maximum. 

If  T'(x*)  has  the  correct  sign  then  t (x)  is  locally 

monotonicity  preserving.  If  t'(x*)  is  of  the  "wrong"  sign 

we  must  do  something  about  it  if  x*  e  [x.,x.,,].  Since 

^  1   1+1 
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X*  =  X.  +  TT^  Jin 
1    2p. 


we  thus  have  two  cases; 


p.h. 
i+1    i 


T"   -  T"  e~^i  i 
1+1    1 


p.h. 

(a)  if  TV  <  e  ^  ^TV^^  then  x*  e  [x^rX^^^]  iff  '^'[+■^^10 

(b)  if  TV>e  ^  ^T^^^   then  x*  e  [x^,x^^3^]  iff  "^i+ilO. 

We  now  come  to  the  case  in  which  x' (x*)  has  the  wrong 
sign.   In  this  event  we  iteratively  modify  the  tension  para- 
meter, p./   so  as  to  enforce  the  requirement  that  t ' (x*)  should 
have   the  correct  sign. 

Consequently,  consider  once  again  our  special  cases, 

with 

f.  ,-f. 

m.  =  -^^ — -     and   Y  ^  B.  +  p.  •  2  sgn  (C- )  *  /-CD.  ; 
1      n.  41  1       11 

1 

(i)   C^  >  0,  D.  <  0  =>■  T'(x*)  is  a  minimum 

(a)  if  m.  <^  0  then  do  not  alter  p. 

(b)  if  m.  >  0  then,  since  we  want  Y  >  0,  set 

pj"""^^  =  -  b./2/:::cTd7  +  6 

(ii)  C^  <  0,  D.  >  0  =>•  T '  (x*)  is  a  maximum 

(a)  if  m.  >_  0   then  do  not  alter  p. 

(b)  if  m.  <  0   then,  since  we  want  Y  <  0,  set 

P^"-"^)  =  b./2/::c7d7  +6.  ■   , 

The  only  remaining  issue  is  if  the  computed  t!  should 
be  of  the  wrong  sign   i.e.  x!m._,  <  0  and  x.'m.  <  0. 
We  proceed  as  follows. 
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T'  ixl) 


p.  s . 


-p.T.  cosh(p. h. )  +  P- tV , . 


X  "    —  T  " 


J^   (f.   -f  ) i±l_A_1 

h.   ^  i+1  ^i^         2 
1  p,    -< 


T-  (x^) 


-2-^^ [-Pi-l^i-1+Pi-l^I  cosh(p._,h._, 


T " _T " 


As  we  know,  subtracting  these  relations  yields  the 
tridiagonal  system  for  x '.'   (i  =  1,...,N+1). 

However,  we  choose  to  average  them  which  produces 

^i  =  H^^i-i'i-i^^^i-i-^i^'i-^i'i+i^  ■"  f"^i-i^"^ii}- 

We  choose  to  enforce 
^i-1-l^i-ll  +  (d,_,+d,).hV|+e.  .  ITV^J  <  |m,_,+m.I. 


Now, 
1-1  '  1-1'    1-1   1   '  i'   1  '  1+1' 

-  ^^i-1  ■"  '^i-i  +  ^i  ■*■  ^i^  "^^^^  ^i-iM-^il'  I'^i+il) 


We   need   the    following 


Lemma .       ( a )       e .    < 


Proof:       (a)       e 


1        L  hi        s,. 


2  1 

/  p^    <    —^ —  since  we  know  e .  >  0 


Pih. 
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,        c .     1 

(b)   d.  <  —  iff  —  -  —=r—   <  1 
1  -  Pi       s.    p.h.  - 

but  ^?^!}  ^  -  -  <  1  since  f(x)  =  x  sinh  x  +  sinh  x  -  x  cosh  x>  0 
smh  X   X  —  — 

which  follows  from  f (0)  =  0  and 

f '  (x)  =  cosh  X  +  x(cosh  x  -  sinh  x)  >^  0   for  x  >_  0. 

Q.E.D. 

We  are  thus  led  to  enforcing 


pLi^i-i   ^i-^   P^i  ''- 


max  (|xV_^Mtv1,|t^_^^|) 


I  r 


<    m.  ,  +  m. 
'  1-1     1 


or,  alternatively 

1    ^  _J^   <      l"^i-l  ^  "^jl 

Pi-l^i-1   ^^-^   2  max(|T^_J,|T^|,|T';^^l) 

together  with 

1.1.         ''"i-l  "■  "^i 


+  ^^  < 


p^h.    Pi    2  max  (hV_J,|T^|,|TV^^|) 
This  ultimately  leads  to 

(n+1)    ^^Pi^   2  max  (  |tV_,  M  t»  [J  t»^  J)  ^ 

I  _  ^ •   — ■ T 

1.  ,  +  m.  I 
1-1     1 ' 


^^        Pi^i  Im.  ,  +  m. 


and 


m.  ,  +  m. 
'  1-1    1 
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II. 8.   Periodic  Exponential  Spline 

If  one  wishes  to  parametrically  fit  a  closed  body 
in  a  smooth  fashion,  then  periodic  end  conditions  must  be 
imposed.   The  necessary  modifications   to  the  preceding 
analysis  are  presented  herein. 

Matrix  Structure 

The  equation  for  strictly  interior  points  remains 
unchanged: 

^i-l"I-l  +  (Vl+^i^^I  +  Vl+1  =  ^i   (i  =  2 N-1). 

We  now  have  the  periodic  end  conditions 

^N+1  "  ^1  ' 

T  "     =  T  " 

N+1     1  • 

In  addition,  we  imagine  an  additional  point  at  x^  3 

^0   =   \ 

This  effectively  identifies  the  two  endpoints.   We  now 
write  down  the  equations  for  i  =  1  and  N: 

{d„+d,)TV  +  e,x"  +  e„T"  =   2"  1    ^N+1"  N 


^n""1'  ^1  "  ^==1^2  "  ^N  N K H- 


N 


Vl  ^  ^N-l^N-l  +  (^N+l-^^N^'^N  =  ^N  • 
We  therefore  redefine 

j^  ^  ^2  "  ^1    ^N+1  "  ^N 


1     h. 


\ 
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Note  that  the  matrix  is  no  longer  tridiagonal.  Instead  it 
has  the  structure. 


DIAG^   E^ 


'N 


■'N 


N-l 


Vl    ^^^S 


..  \ 


N 


N 


Matrix  Solution 


The  following  algorithm  [2]  may  be  used  to  solve  for 
TV  (i=l,.. .,N) ;  let 


then  set 


PK.  = 


"i   = 


^  Si   = 


PK^ 

— 

DIAGj^ 

Qi 

= 

-    E^/PK^ 

"i 

= 

B^/PKj^ 

^1 

= 

-  V^^l 

^i- 

• 
1 

Q^_^ +  DIAG^ 

-E^/PK^ 


(«i-Vl-"i-l)/P^i 


■^i-l 


Si-1  /P^i 


^   (i=2,... ,N-1) 


f  ■-. 
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let 


then  set 


(i=N-l,. . . ,1) 


and  finally 


'n  =     ^^N  -  ^N  •  ^1  -  ^N-l  •  Vl^  /  (^N  •  ^1  ^  Vl  •  Vl  ^  °^^^n) 


Parameter  Selection  Procedure 

We  treat  the  periodic  case  as  follows: 

N 

(1)  All  points  {  (x.  ,f  • )  }^_-i  are  treated  as 

interior  points. 

(2)  When  ''^^bn  <  0 ,  we  modify  p,  and  p  . 

The  previous  scheme  is  otherwise  unaltered. 
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II.  9.   Niimerical  Considerations 

In  this  section  we  detail  the  necessary  modifications 
and  extensions  to  the  above  analysis  which  practical 
implementation  mandates  [10,11,38], 


Scaling 

The  first  problem  to  be  treated  is  that  of  the 
inherent  number  range  restriction.   In  IBM  FORTRAN  this 
results  in  the  restriction  that  the  magnitude  of  expon- 
ential arguments   be  less  than  17  5.366.   Since  the 
exponential  spline  definition  requires  the  computation  of 
quantities  such  as   sinh(p.h.),  the  data  must  be  scaled  so 

that  max   {p.h. }  <  175.366. 
l<i<N   ^  ^ 
However,    it   should   first  be   shown 

that  a         scaling  of  the  abscissae  leaves  the  sign  of 
TVb.  (i=l, . . . ,N+1)  invariant.  This  is  required  since  the 
necessary  and  sufficient  condition  for  no  extraneous  inflec- 
tion points  which  is  the  basis  for  our  algorithm  is  a  function 
of  the  algebraic   signs  of   these  quantities.   We  proceed 
as  follows: 


TVb^  =   T"(x^) 


1+1   1 


1 


f.-f.  - 
1   1-1 


l^i+l-^i 


^i-^i-1 


X  =  x/a 


T.b.  =  a  ^T   X.) 
11  1 


f  .^,-f . 
1+1   1 


f.-f.  - 
1   1-1 


a(x.^^  -X.) 


a(x.-x.  ,) 
1   1-1  . 


=  a-^TJb,, 


where 
so  that 


T(x)  =  T(ax) 
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a  >  0   =>• 
xVb.   and   x'/b.   have  the  same  sign. 


In  addition. 


n       n  —  4  —  II      — " 

T  .   ,  T .   ,  =  a   TV  ,  T .   , 
1-1   1+1  1-1   1+1 


SO  that 


—  II   —  II 


x._,T    and  ''■i_i ''^■i+i  have  the  same  sign. 


We  may  now  freely  scale  x  by  an  arbitrary  positive 
factor.   We  choose  to  proceed  as  follows: 
Define 


and 


then 


]i   =     max   (p.h. } 
l<i<N   ^  ^ 


o   =  150.; 


X.  =  x./a      with  ^   ^  ^ 


p.h.   =  —   p.h.  <  —  <  -4—  =  o, 
^i  1    a  t^i"i  -  a  -  y/a     ' 


and  we  consequently  remain  within  the  desired  number  range. 
Whenever  the  p's  are  updated,  a  scaling  should  be  done  if 
U  >  o.   Note  that  when  scaling  is  done  then  f'(a)  and 
f'(b)  should  be  multiplied  by  a. 

In   practice,  an  additional  source  of  scaling  is  the 
need  for  a  unique  interpolant  when  a  change  of  physical 
units  is  made.   We  now  take  up  this  matter. 
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Invariance  Under  Linear  Transformations 

As  presently  proposed,  the  exponential  spline  interpolant  is  not 
invariant  under  change  of  physical  units.   To  ensure  such 
invariance  some  sort  of  normalization  must  be  performed  on 
the  input  data. 

Ordinates 

Let  f^  =  ^i^j^-^'^2    '    ^^^^   ^i  "^  '^I'^i  ^hich  =*  ^^  =  ^l^i* 
Therefore  t (x) =k,T (x)+k„ ,  as  it  should  be.   Hence,  scaling  of 
the  ordinates   is  unnecessary. 

Abscissae 

Let  X  =  k,x+k_.   In  this  case,  k_  is  impotent  since 
only  differences  of  abscissae  appear  in  the  exponential 
spline  formulation.   However,  k,  has  a  nonlinear  effect  on 
the  interpolant.   Hence,  scaling  of  the  abscissae  is  required. 
Setting  k,  =  2/(x   , -x,)   and  using  this  as  a  scale  factor 
suffices. 

Parametric  Exponential  Spline 

In  many  applications  f  is  not  a  single-valued  function 
of  X  for  the  entire  range  of  the  data.   Hence,  it  becomes 
desirable  to  fit  both  x  and  f  versus  some  parameter,  e.g. 
chordal  length  or  arc  length.   We  prefer  the  arc  length 
formulation. 

We  proceed  as  follows: 

(1)  Determine  the  chordal  length,  s. 

(2)  Fit  X  and  f  versus  s,  producing  exponential  splines 
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x(s)  and  f(s),  respectively. 

(3)   Determine  modified  arc  lengths  from 

6 
B  _  (    /r„..,_.,2  .  ,...,_. ,2\l/2 

"a 

a 


C  =  M  [x"(s)]-  +  [fMs)]"!    ds  . 


This  integral  can  be  evaluated  numerically, 
say  by  a  compound   Simpson's  rule. 
(4)   If  arc  lengths  have  changed  appreciably  then 
go  to  (2) ;  otherwise  the  current  x  and  f  are 
the  sought  after  parametric  fits. 
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11.10.   Examples 

We  next  present  a  sequence  of  carefully  selected 
examples.   They  are  chosen  to  illustrate  both  the  effi- 
ciency of  the  new  parameter  selection  algorithm  and  the 
inherent  superiority  to  cubic  spline  interpolation. 

The  first  test  case  is  taken  from  Spath's  original 
paper  [47],   The  cubic  spline  interpolant,  Figure  II. 10. la, 
exhibits  extraneous   inflection  points   in  the   first, 
third,  fourth  and  eighth  intervals.   The  converged   exponential 
spline  interpolant,  Figure  II. 10. Id,   is  seen  to  be  free  of 
such   aberrations.   The  general  behavior  of  our  parameter 
selection  scheme  is   amply  portrayed  in  this  example: 
The  first  iteration.  Figure  II. 10. lb,  captures  the  gross 
features  while  subsequent  iterations.  Figures  Il.lO.lc-d, 
essentially  "fine-tune"  the  first.   We  note  that  the  scheme 
proposed  by  Spath  required  twelve  iterations  as  opposed  to 
our  three  iterations  with  no  visible  difference  in  the 
final  interpolants. 

The  second  test  case  is  a  unit  impulse  function.  Note 
the  "wiggles"  present  in  the  cubic  spline  interpolant. 
Figure  II. 10. 2a.   This  example  demonstrates  the  insensitivity 
to  "outliers"   that  the  exponential  spline  interpolant. 
Figure  II. 10. 2b,  possesses. 

The  third  test  case  is  a  semicircle  joined  to  two 
straight  line  segments  in  such  a  way  as  to  produce  disconti- 
nuities  in  the  first  derivative.   This  example   begins  to 
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implicate  the  cubic  spline  interpolant.  Figure  II. 10. 3a, 
as  being  deficient  as  a  means  of  geometric  representation. 
The  exponential  spline.  Figure  II. 10. 3b,  on  the  other  hand, 
performs  ideally  in  this  instance.   Such  a  geometry  would 
arise  as  the  computational  domain  for  flow  past  a  cylinder. 

The  fourth  test  case  is  a  quarter  circle  joined  by  a 
straight  line  segment  with  a  discontinuous  second  derivative 
at  their  junction.   Once  again  the  cubic  spline  interpolant. 
Figure  II. 10. 4a,  falls  far  short  of  geometric  requirements 
while  the  exponential  spline.  Figure  II. 10. 4b,  does  not 
falter.   If  we  were  to  try  and  calculate  supersonic  flow  past 
this  projectile,  the  cubic  spline  inflection  point  would 
likely  induce  a  shock  wave. 

The  fifth  test  case  displays  the  critical  sensitivity 
of  the  cubic  spline  interpolant.  Figure  11.10. 5a,  to  the 
end  conditions  imposed.   It  is  an  additional  advantage  of 
the  exponential  spline  interpolant,  Figure  11.10. 5b,  that 
it  automatically  compensates  for  poor   end  conditions   thus 
restricting  them  to  local  influence.   If  this  geometry  were 
axisymmetric   the  cubic  spline  would  surely  replace  the 
blunt  body  by  a  pointed  one. 

Furthermore,  we  note  that  preliminary  tests  have  revealed 
wildly  oscillating  cubic  spline  interpolants  in  the  presence 
of  nonuniform  knot  placement.   This  defect  appears  to  be 
absent  from  the  exponential  spline  interpolant. 
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An  additional  coitunent  deserves  to  be  made  at  this 
point.   That  is,  in  the  applications  where  cubic  splines 
are  typically  used,  a  great  deal  of  effort  is  generally 
expended  in  the  smoothing  ("fudging")  of  geometric  data 
and  in  the  preoccupation  with  end  conditions.   Both  of 
these  difficulties  are  peculiar  to  the  cubic  spline. 
In  general,  exponential  spline  interpolation  obviates 
the  need  for  such  diversions. 
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Part  III:   Application  of  Exponential  Splines 

III.l.   Overview 

In  this  third  part  we  take  up  the  application  of  our 
preceding  work  on  exponential  splines.   We  begin  by  survey- 
ing  the  utility  of  such  splines  in  some  geometric  and 
data  fitting  problems   occurring  in  computational  fluid 
dynamics.   The  discussion  here  is  somewhat  general  with 
the  exception  of  a  detailed  boundary  layer  calculation. 
The  numerical  solution  of  the  Laplace,  heat,  and  wave 
equations   is  then  addressed.   Our  aim  in  the  final  parts 
of  the  chapter  is  to  provide  a  treatment  of  nonlinear  systems 
of  hyperbolic  conservation  laws  and  in  particular  to 
simulate  shock  waves  without  introducing  wiggles.  We  first 
take  up  a  linear  model  problem.   In  this  context  we  analyze 
the  stability  and  accuracy  of  a  variety  of  numerical  schemes. 
Nonlinear  problems  are  introduced  via  the  inviscid  Burger's 
equation.   At  this  juncture  we  generalize  the  Lax-Wendroff 
theorem  concerning  convergence  of  approximations  to  weak 
solutions  to  the  case  of  our  spline  scheme.   The  classical 
Riemann  problem  for  an  infinite  shock  tube  is  then  approached 
using  this  scheme.   Finally,  the  scheme  is  extended  to 
multi-dimensions   and  applied  to  the  two-dimensional  Euler 
equations.  Specifically,  we  provide  niamerical  simulation  of 
transonic  flow  in  a  channel. 
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III. 2.  Geometric  Applications  in  Computational  Fluid  Dynamics 

As  if  the  attendant  mathematical  difficulties  were 
not  inherently  severe  enough,  the  calculation  of  fluid 
flow  fields  invariably   requires,  at  one  stage  or  another, 
the  construction  of  smooth  curves  from  a  prescribed  set 
of  tabulated  data  points.   Examples  that  immediately  come 
to  mind  are  the  definition  of  body  geometry,  the  numerical 
enforcement  of  boundary  conditions  and  the  generation  of  a 
computational  mesh.   Hence,  reliable  interpolation  procedures 
must  be  developed.   In  what  follows,  we  restrict  our  atten- 
tion to  the  two  dimensional  case  for  ease  of  exposition. 
The  techniques  developed  have  no  such  intrinsic  limitation. 

The  remainder  of  this  section  presents  a  wide  variety 
of  applications  of  exponential  splines  in  computational 
fluid  dynamics.   The  emphasis  throughout  is  on  areas  of 
application  where  the  use  of  cubic  splines  would  result  in 
a  significant  degradation  if  not  an  utter  breakdown  of  the 
computation. 

The  utility  of  exponential  splines  as  a  means  of 
geometric  representation  has  already  been  intimated.  The 
resulting  loss  of  accuracy  in  the  numerical  prescription 
of  initial  and/or  boundary  conditions  could  distort  the 
solution  throughout  the  entire  flow  field.   In  a  boundary 
conforming  computational  mesh,  any  abnormalities  along  the 
boundary  will  propagate  into  the  grid.  Smith  and  Wiegel  [45] 
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and  Eiseman  and  Smith  [16]  have  advocated  the  use  of 
hyperbolic  splines  in  this  context.   This  approach  requires 
that  uniform  tension  be  applied,  thus  resulting  in 
unnecessarily  kinky  curves. 

Along  these  same  lines,  conformal  mapping  techniques 

often  require  ex  post  facto  stretchings  to  concentrate  grid 

2 
points  in  regions  of  high  gradients.   Such  C   shearings 

may  be  conveniently  constructed  and  controlled  by  employing 

exponential  splines.   Figure  III. 2.1   displays  such  a 

stretching  function  while  Figure  III. 2. 2   illustrates  its 

application   to  a  channel-with-bump  geometry. 

In  a  slightly  more  general  vein,  we  recall  that  strict 
adherence  to  convexity  constraints  is  required  by  many 
existence  [8]  and  uniqueness  [18]  results  in  the  theory  of 
plane  subsonic  fluid  flow.   It  is  also  well  known  that  in 
supersonic  flows,  there  is  an  inherent  difference  between 
concave  and  convex  geometries  [12] .   These  considerations 
imply  that  convexity  must  be  preserved  in  the  discrete 
analogues   to  these  problems,  e.g.,  through  the  use  of 
exponential  splines. 

We  now  present  the  application  of  our  exponential  spline 
code   to  provide  smooth  input  data  for  the  integration  of 
the  boundary  layer  equations   and  to  prevent  failures  of 
the  integration  scheme  due  to  oscillations  in  the  input. 
Specifically,   we  consider   the  transonic   flow   (peak  Mach 
number  2:i  1.2)      over  a  compressor  cascade  with  10  degrees  of 
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flow  turning  as  supplied  by  Korn  [26]  (see  Figure  III. 2. 3). 
The  Gorputed  velocity  distribution  along  the  upper  surface 
(obtained  from  a  hodograph  method)  is  shown  in  Figure  III. 2. 4 
Fifteen  points  were  selected  and  fit  with  both  cubic  and 
exponential  splines  (see  Figure  III. 2. 5).   The  cubic  spline 
oscillates    wildly  in  the  vicinities  of  the  supersonic 
zone  and  the  trailing  edge. 

The  resulting  velocity  distributions  were  then  input 
to  the  STAN5   finite  difference  boundary  layer  code  [13] . 
The  anomalies  present  in  the  cubic  spline  interpolant  cause 
the  boundary  layer  to  separate  at  the  leading  edge  overspeed 
thus   halting  the   calculation.   On  the  other  hand,   the 
well-behaved  nature  of  the  exponential  spline  interpolant 
allows  the  calculation  of  a  fully  attached  flow. 

In  order  to  obtain  a  more  substantial  comparison  we 
include  4  additional  points  on  the  velocity  schedule  (see 
Figures  III. 2. 6  and  III. 2. 7).   These  are  then  used  as  input 
to  STAN5   (see  Figures  III. 2. 8  and  III. 2. 9).   The  output, 
displayed  in  Figures  III. 2. 10  and  III. 2. 11,  clearly 
indicates  that  the  cubic  spline  can  produce   nonphysical 
features  in  the  computed  flow  field. 

In  contrast,  the  exponential  spline,  because  of  its 
stricter  adherence  to  the  features  of  the  data,  is  seen 
to  be  more  reliable.   One  can  well  imagine  the  additional 
complications  which  the  presence  of  a  shock  wave  would 
entail. 
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Obviously/  the  use  of  an  extremely  fine  mesh  would 
rectify  the  situation.   However,  a  high  cost  could  be 
incurred  in  the  form  of  vastly  increased  computation  time. 
This  is  especially  true  when  the  boundary  layer  calculation 
is  not  being  performed  a  posteriori   but  rather  as  part 
of  an  inviscid-viscous  iteration.   Furthermore,  the  use 
of  the  exponential  spline  would  allow  the  specification  of 
less  data  than  the  cubic  spline  in  an  inverse  design 
procedure. 

We  note  that  the  role  of  exponential  splines  in  the 
direct  numerical  solution  of  singular  perturbation  problems 
has  recently  been  investigated  by  Flaherty  and  Mathon  [17] . 

In  summary,  the  examples  considered  indicate  that 
the  cubic  spline  may  cause  difficulties  in  a  broad  spectrum 
of  practical  applications.   In  the  past,  the  lack  of  a 
satisfactory  scheme  for  tension  parameter  selection  has 
hindered  the  widespread  use  of  the  exponential  spline  as  a 
viable  alternative.   Hov/ever,  our  exponential  spline  tension 
parameter   selection  algorithm  has  removed  this  impediment, 
thus  paving  the  way  for  it  to  become  an  important  tool  of 
the  computational  fluid  dynamicist. 
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III. 3.  Approximation  of  Classical  Partial  Differential  Equations 

In  this  section  we  present  explicit  approximate 
techniques  for  the  numerical  solution  of  second  order 
linear  partial  differential  equations.   Basically,  spatial 
derivatives  are  replaced  by  the  derivatives  at  nodes  of 
interpolatory  splines.  The  cases  of  elliptic,  parabolic  and 
hyperbolic  equations  [18]   are  considered  in  turn.   Note 
that  these  schemes  have  straightforward  implicit  counterparts. 
Our  aim  here  is  to  lay  the  ground  work   for  more  ambitious 
applications  to  nonlinear  problems. 

Laplace's  Equation 

To  illustrate  the  use  of  splines  in  the  solution  of 

elliptic  boundary  value  problems  we  treat  the  Laplace 

equation 

u   +  u   =0 
XX    yy 

in  the  unit  squre   R  =  [0,1]^   with  Dirichlet  boundary 
conditions 

u  =  f    on   8R. 

We  perform  our  calculation  on  a  rectangular  mesh 
of  dimensions  (AX, AY).   First  define 

F(X,Y)  =  f(X,0)(l-Y)  +  f(X,l)Y  +  f(0,Y)(l-X)  +  f(l,Y)X 

-  f  (0,0)  (1-X)  (1-Y)  -  f  (0,1)  (l-X)Y-  f  (l,0)X(l-Y)-f  (1,1)XY, 

i.e.  F  is  the  bilinear  blend  of  the  boundary  data. 
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Now  use  F(X,Y)  as  Cauchy  data  for  the  heat  equation 

U4.  =  u    +  u 
t    XX    yy 

2 
on  S  =  [0,1]   ^  [0,T] .   At  each  time  step  we  enforce  u  =  f 

on  9S.   When  the  solution  has  reached  a  steady  state  we 

will  have  our  desired  solution  to  Au  =  0. 

The  solution  of  the  heat  equation  now  becomes  the 

focus  of  attention. 

Heat  Equation 

Consider  the  heat  equation  (parabolic)  in  one  spatial 
dimension 

u^  =  u^^  on   (-«',°°)  X  [0,0°) 

together  with  the  initial  data 

u(x,0)  =  f  (x)  ,    X  e  IR  . 

A  conventional  approach  to  this  problem  is  to  use  a 
forward  difference  in  time  coupled  with  a  central  difference 
in  space.   This  results  in  the  explicit  scheme 

n+1    n.At  f  n  -n^n   ^ 

i    "   i   A^  K+l-^^i-^^i-l^- 

Letting   X  s  — -  and  performing  a   von  Neumann 
Ax'' 

stability  analysis  we  arrive  at  the  following  expression 
for  the  amplification  factor: 
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n    ipx     n+1      ipx    r  » 

u^  =  e^   ,   u^   =ge''^   ,   ?  =  pAx 

g  =  1  +  2A  (cos  C  -  1)  . 


Since  we  want  |g|  <  1  for  all  Fourier  modes  we  must 
require  that 

A  <  1  . 

■f"  Vi 

Alternatively,  we  could  approximate  u   at  the  n — 
time  level  using  an  exponential  spline  (with  uniform 
tension)  . 

We  then  have 

e(u   ).  T  +2d(u   ).  +e(u   ).,,  =Te-(u.,,-2u.+u.  ,) 
^  xx'i-1      ^  xx'i     ^  xx'i+1    Ax  ^1+1     1    1-1' 

and  now 


^r^  =  ^k  ■"  ^^^^xx^k '       k=i-i,i,i+i 


^    n+l  ,  _,  n+1  ,   n+1     n   ,-,-,  n,   n   ,  At,  n    ^  n , ,  n   . 
-  e  u._^+2du.   +eu.^^  =  eu.  _^  +  2du.+eu.  ^^+  A3^(Ui+i-2u. +u  .  _^) 

Ax  (cos  ?  -  1) 

=»  g  =  1  +  X  

e  cos  K   +  d 

=>  X  <   ^  . 

Ax 

For  the  cubic  spline  this  yields 

-I- 

However,  as  the  tension  increases  we  have 

^-v  0 

Ax 
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i.e.   an  increasingly  stringent  stability  restriction.  Hence, 
large  tension  is  not  recommended  for  this  problem.  Note  that 

the  cubic  spline  and  central  difference  both  provide  an 

2 
0(Ax  )   accurate  approximation  to  u    while  the  latter  has 

the  more  favorable  stability  characteristics. 

It  is  shown  in  Appendix  I  that  the  average  of  the 
cubic  spline  and  central  difference  approximations  to  u 

XX 

is  fourth  order  accurate  on  a  uniform  mesh.   The  remaining 
questions  concern  the  stability  of  such  a  scheme. 
Correspondingly,  let 

,       u.  1  -  2u.  +  u.  . , 

<»xx'i  -  I  1^1  -  '-'        /2  '''    ' 

Ax 

where  S(x)  denotes  the  cubic  spline.  I.e. 


J-  s'.'  ,  +  I  sV  +  ^  s"  ,  =  -^  (S.  ,  -  2S.  +  S.^,) 
6   1-1    3   1    6   1+1    .  2    1-1     1    1+1 

Ax 


n    ~  n  ,  n 
.  n         A  J.        u,  ,  -  2u,  +  u,  , , 

^k   =  ^S  -^  ¥  t^k  -^  -^^ V^^  1  '•  k=i-l,i,iH-l 

Ax 


^      1      n+1   ^   2      n+1   ^   1      n+1        In        ^2n.ln 
6      1-1        3      1  6      1+1        6      1-1        3      1        6      1  +  1 

At      ,   n  -i   n  ,  „n      ^ 

+   — ^    (^i-i-2Ui  +  u.^l) 

2Ax 


At,  In       j^ln  n,ln       j^l,,n       . 

~T  (  6    "i-2  +  3    ^i-1  -  ^i  +  3    "i+1  +  6    "i  +  2  ) 


2Ax 


<3  =   ^   +   2  (cos   g  +  2)     [8   cos   ?    -    9   +   cos   2^ 
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Hence  we  have  achieved  higher  order  accuracy  together 
with  a  reasonable  stability  restriction. 

Wave  Equation 

Consider  the  wave   equation  (hyperbolic)  in  one  spatial 
dimension 


"tt  ^  ^xx   °"   (-°°f°°)  ^  [O,"') 
together  with  the  initial  conditions 

u(x,0)  =  f(x)  ,    u^(x,0)  =  h(x)  ,         X  &m   . 

One  straightforward  technique  for  treating  this 
problem  is  to  use  central  differences  in  both  time  and  space. 
This  produces  the  explicit  scheme 

n+1   „  n  ,  n-1    .At,  2  -  n     „  n  ,  n   , 
u.   -2U.+U.    =    (^)  (Ui^i-2u.+u._^) 

where  the  calculation  initially  uses  u.  =  h  to  produce 

the  required  two  previous  time  levels. 

Letting   A  =  j—     we  once  again  perform  a  von  Neumann 

stability  analysis. 

n-1     ipx     n      ipx     n+1     2  ipx     r-        ^  a,, 
u.    =e'^   ,   u.=ge^   ,   u.    =ge^   ,   C  =  pAx 


g  =  1  -  y  +  /y  (y-2)   where  y  -   X    (1  -  cos  ?) 
y  <  2  =*   X^  <  1 


=*   X  <  1  . 
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If  instead  we  approximate  u   using  an  exponential 
spline  (with  uniform  tension)  we  have 


e  2d  e  1 

i^  ("xx^i-1  -^  i^  ("xx^i  -^  i^  ("xx^i+1    =   rr  (^i+i-^^i-'^i-i^ 

Ax 
Now 

n+1    ^  n  ,   n-1    a .2  ,         .      ,    .,..,, 
Uj^   -  2uj^  +  Uj^   =  At  (u^j^)]^  ;   k  =  i-l,i,i+l 

^    ,  e       n+1    ,    2d      n+1    ,     e       n+1.         - , e       n         ,    2d      n  ,    e       n      . 
^I^  ^-1   -^   Fx  ^i        +   A^  "i+l^    -    2(a^  u._i    +  ^  ^1+  A3F  ^i+l) 


.     ,e       n-1    ,    2d   ,n-l    .     e       n-1.  -At.  2  ,    n  _   n.     n      . 

+    fe  ^i-1    +   A5^  "i         ^   M  ^i+l^    =    ^Ax)     (^i+1  -  2Ui  +  u.  _^) 


(g2    -    2g   +    1) 


e   cos   C+d~|  i2,_„(-         ,. 
^ =   gX       (cos    ^    -    1) 


2 

T    ^j.-  .    -      X    (1   -   cos   ?)    Ax  , 

Letting  y    =      2    (e  cos   i   +  d)        "^   ^^^^ 


g     -   2g  +   1  +   2yg  =   0  =»  g  =    (1-y)    +   /y  (y-2) 


which  once  again  requires 


Ax  (1  -  cos  ?) 


;^2  ,  2(d-e)  ^  ^  ,  /2Td:^ 
Ax         V   Ax 


For  the  cubic  spline  this  yields 


X    <   1- 
/3 


However,  as  for  the  heat  equation, 

A  X      ' 
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with  increasing  tension.   This  stability  restriction  again 
discourages  the  use  of  large  tension  for  this  problem. 
The  cubic  spline  and  central  difference  are  comparable 
in  accuracy. 

We  next  study  the  use  of  the  average  of  the  cubic 
spline  and  central   difference  approximations  which  is  fourth 
order  accurate  on  a  uniform  mesh  (see  Appendix  I) .  Let 

,        u .  , -2u . +u . . T 

(u   )  .  '^.  ^  [SV  +  -^^ ^   ^^^  ] 

XX  1    2    1         .2 

Ax 

where  S (x)  denotes  the  cubic  spline.  I.e., 


1      11  2      II         1      "  1 

i-S.    ,    +4s.    +#S.^T    =   -^    (S.     ,  -  2S.  +  S.^,  ) 

6      1-1        3      1        6      1+1         .    2         1-1  1        1+1 

.  *  .  ~  n        _    n ,    n 

.  1  1  A  ^2  u,   ,  ,  -2u,  +u,     1 

n+1    o   n,,n-l  At  ro"    -i_      '^+1        ^      ^~^    i     .    v--;    i    ■;    -:  xi 

u,       -2u,+u,  =      — 2"  [S^   +   2 J     '    k=i-l,  1,1+1 

rl       n+1    ,    2      n+1    ,    1      n+1,         -.1       "       ,   2   ,  n  ,   1   ,  n      , 
*       f-r  ^i-1   ■"    3   ^i        ""   6   "i+ll    -    2  [-T  ^i-i  +  3   ^i  +  6   ^i+l^ 

2 

,     r  1       n-1    J    2      n-1    ,    1      n-1.  At       ,    n        o,  n.    n      . 

+    f-T  ^i-1   -^    3   ^i        -^    6   "i+1^    =   ^^    (^i-l-2"i+^i+l) 

2 
At       fl       n        ,ln  n.ln       ^In, 

+   --2     t-r  ^i-2  -^  3    ^i-1  -  "i  -^  3    ^i+1  +  6   ^i+2^ 
2Ax 


=>    (g2-2g+l) 


cos   ?    +    2 


=   2^    [^  cos    ^    +   ^  cos    2K    -   3] 


Letting 

4 (cos  ?  +  2) 


x2  2 

y    s [10  -  8    cos  K  -  2   cos^] 
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we  arrive  again  at 


2 

g  -  2g+  1  +  2yg  =  0 


which  we  know  requires 

U  <  2 

^  ^2    ^   8  (cos  C  +  2) 

10-8  cos  5-2  cos  5 


x^  <  I  .   X  <  -1 


/2 

Hence  this  scheme  provides  higher  order  accuracy  while 
maintaining  stability. 
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III. 4.   Model  Problem 

In  subsequent  sections  we  will  apply  spline  approxi- 
mations to  the  numerical  solution  of  nonlinear  systems  of 
hyperbolic  conservation  laws.   The  stability  of  such  a 
scheme  can  most  easily  be  studied  by  considering  model 
equations  with  constant  coefficients. 

Therefore,  in  this  section   we  investigate  the 
prototypical  equation 

u   +  cu  =0   on   (-°°,°°)  X  [0,°°) 

with  u(x,0)  =  f(x)  V  X  e  IR.   All  calculations  are  to  be 
performed  on  a  mesh  with  uniform  Ax  and  At. 

We  begin  by  considering  forward  differences  in  both 
time   and  space.   This  results  in 

,  n+1  _  ,  n   cAt  ,  n      n> 
u  .    =  u  .  -  —7 —  (u  .  ,  T  -  u  • )  . 
D       :     Ax  '  D+1     3' 

A  von  Neumann  stability  analysis  reveals  an  amplification 
factor 

g  =  1  +  A  -  X  e^^ 

c  At 
where  A  =  — r .   We  thus  require  that  -1  <  X  <  0. 

Ax  ^ 

Alternatively,  use  of  a  backward  spatial  difference 

n+1     n    ^  /  n    n   . 
u.    =  Uj  -  A(uj  -  u._i) 

yields 

g  =  1  -  A  +  X  e^^. 

We  thus  restrict  0  <  X  <  1   in  this  case. 
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These  results  are  not  surprising  since  they  simply 
restate  the  C-F-L  condition  that  the  numerical  domain  of 
dependence  should  contain  the  true  domain  of  dependence. 
However,  these  one-sided  differences  are  only  first  order 
accurate.   It  would  seem  that  second  order  accuracy  could 
be  achieved  by  using  a  central  difference   since  that 
would  fulfill  the  C-F-L  requirement  for  arbitrary  c. 

Such  a  scheme  takes  the  form 

n+1    n   X  ,  "      n   . 
"j    =  ""j  "  2  (^j+1  -  "j-1^ 

with  an  amplification  factor 

g  =  1  -  A  sin  E,  i    . 

This  is  Seen  to  be  unconditionally  unstable.   Hence  care 
must  be  taken  in  choosing  a  time  marching  scheme. 

The  above  deficiency  can  be  remedied  by  approximating 

n    n 
,   ,n  .   n+1    ^j+1   j+1 
(^t^j  ~  "j    -     2 

thus  producing  the  Lax  scheme 


n+1    1  ,  n    ,   n   ,    X  ,  n      n 


u.    =  ^  (Uj^i  +  u._^)    -   2  (Uj+i  -  Uj_^) 


=*     g  =  cos  E,    -   iX    sin  ? 

|A|  <  1  . 

We  can  increase  spatial  accuracy  by  using  a  fourth 
order  central  difference 
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^^x^i    "^    h    ^T2   ^i-2    -   I  ^i-1    +   f  "i+1    -   12    ^i+2l- 
This  yields  the   scheme 

n+1         l.n         ,n,,,ln  2n  2n  In, 

g   =   cos    5    -   Ai    sin   ?  [l-^-^|5-i] 
3 


X       < 


4    -   cos    C 
3 


IM  <  5  . 

When   boundaries   are   present    such   a    scheme  vould  require  modificaticns. 

It      is      shown      in      Appendix      I      that      a 
scheme      which      does   not   suffer      this      drawback,      yet 
maintains    fourth  order   accuracy   on   a   uniform  mesh,  can   be 
constructed   using   spline   approximations    to   u    .    In   this 
scheme  we  have 

/      \  ,      ^      /      \       ,         e  ,      V  ^j+1      j-1 


2(d+e)  '    x'j-1        d+e    '    x'j         2 (d+e)     '"x'j+1  2Ax 

n+1  l,n       ,n.,        «.t^  n        i-t'-.t 

"k        -  2    ^^k+l-'^k-l^    ■"   ^^^     °x  ^k   =    °    '    k=D-l,DO+l 

then  yields 


e  r    n+l        1    /    n       .    n. ,     ,      d       r   n+1        1    /    n       ,    n      ,  , 

2TdTiT    t^j+l    -    2    (^j  +  2+^j^l    +   d+i    f"j         -    2     ("j+l-^^j-l^^ 

e  r    n+1      l-n,n>,,cAt-n  n>         ,. 

■^  2Td+¥y  f^j-i  -  2  (^j  -^  "j-2)  1  -^  TAsr  <"j---i  -  ^j-i^  =  ° 

r  ^  ■         r      r  d+e 

g  =  cos   5   -   A    sin  ?      - 


M 


^e  cos   ?   +  d 

d-e 
d+e    • 
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For  the  cubic  spline  we  have  d  =  h/3,  e  =  h/6 

=»  IX|  <  1/3 

while  for  the  linear  spline  we  recover 

Now  that  we  have  achieved  a  high  order  of  spatial 
accuracy  let  us  turn  our  attention  to  obtaining  higher  order 
temporal  accuracy.   This  will  ensure  more  accurate  unsteady 
calculations   while  allowing  us  to  take  larger  time  steps 
when  attempting  to  march  to  a  steady  state. 

The  time  integration  schemes  considered  thus  far  have 
been  first  order  accurate.   We  attempt  to  extend  this 
accuracy  by  employing  classical  Runge-Kutta  techniques. 

Hence,  consider  the  second  order  Runge-Kutta  scheme 

u^0>  =  u" 

u(^)  =  u(0)  -  cAtD^  u^O^ 

u(^)=u(0)-cAtDV^^^¥^" 

X       2 

Here  D   is  the  two  point  central  difference  operator.  The 
first  step  yields  an  amplification  factor 


g^-*-^  =  1-  X  sin  ?i  =  1  -  2Pi 


where  P  =  -  ^^"  ^ 


2 
The  second  step  produces  an  amplification  factor 

(2)  •      2  - 

g^  '  =  1  -  2P1  -  2P   =  q  . 
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Hence, 

|q|^  =  (1-2P^)^  +  4p^  =  (l-2y)^  +  4y 
=  1  +  4y^  >  1 

2 

where  y  =  p  .   Thus  this  scheme  is  unconditionally  unstable. 

Similar  results  obtain  for  the  fourth  order  central  differ- 
ence and  the  spline  scheme.   We  will  not  dwell  on  deriving 
a  stable  scheme  that  is  second  order  accurate  in  time  since 
even  higher  order  accuracy  is  our  ultimate  design. 

Instead   consider  the  Runge-Kutta  scheme  of  third 
order 

u^O)  =  u'^ 

^(1)  ^  ^(0)  _  cAt  ^   ^(0) 
2    X 

u(2)  =  u(°)  -  cAt  D^(2u(l)-u(0)) 

,(3)  =   ,(0)  _  CAt  ^  (u(°U4u(lUu(2)) 

6    X 

n+1     (3) 
u    =  u     . 


For  definiteness  let  D  be  the  two  point  central 

difference  operator.  Letting   P  =  = this 

successively  yields  the  amplification  factors 


g(l)  =  1  -  iP 

g(2)  =  1  -  2iP  -  4P^ 

g(3)    =  1    -    2Pi    -    2P^    +   J  iP^    =    (1-2P^)    +    2iP(|   P^  -  1)     =   q 

-       |g|2  =       (l-2p2)2    +    4p2(|   p2-l)2    =    1    _    4    ^2    ^   2^  y3 

where  y  =   P^.      We  hence   restrict  V    <   |  =►    Ip|    "^  yj 


iM<2yi=  v/3. 
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Hence  this  scheme  is  stable  as  well  as  accurate.  Similar 
calculations  can  be  done  for  the  other  D  under  considera- 

X 

tion.   We  refrain  from  doing  this  as  the  next  scheme  is 
the  one  of  primary  interest  to  us. 

Consider  the  Runge-Kutta  scheme  of  fourth  order 

(0)  n 

u    =  u  ^ 

(1)  (0)    cAt  ^   (0) 

U      =  U       -  — ;;—  D  U 

2    X 

^(2)  ^  ^(0)  _  cAtj^^(l) 
2   X 

u(3)  =u^^)\    cAt  Du(2) 

^(4)  ^  ^(0)  _  cAt  ^  (u(0^2u(^^2u(2)+,(3)) 
6    X 

n+1     (4) 
u    =  u    . 

Initially,  let  D  be  the  two  point  central  difference 
operator.  Then 

g(l)  =  1  -  Pi 
g(2)  =  1  -  Pi  -  p2 

g(3)  =  1  _  2Pi  -  2P^  +  2iP^  — . 

(4)  2    4   3.24 

g^^^  =  1  -  2Pi  -  2P   +  J  p-^i  +  J  P   s  q 

where  P  -  y  ^^^   ^ 

=»•   |q|^  =  (1-2P^+  I  p'^)^+4P^(|  P^-1)^ 

2       ?    9  7  2 

=    (1  -  2y  +  3-  y^)^  +  4y(|  v   -  1) 

_      2 

where  u  =  P  . 
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We  hence  restrict  y  <  2  =*  [  P  [  <  /2 

^  |X|  <  2/2  =;  2.828427125. 

Now  if  we  let  D^  be  the  fourth  order  central  differ- 

(4) 
ence  operator  we  obtain  the  same  expression  for  g    with 

P  redefined  as 


P  =  ^  (y  sin  C  -  I  sin  2?)  =  ^  ^^"  ^  (4  -  cos  ^) 


We  again  require  | P |  <  /2   which  now  yields 

_-l 


XI  <  6 


max    I  sin  ?|  (4  -  cos  5) 
^e[0,2TT] 


/2 


~    6/2  (0.2429150227) 
~  2.061202317 


If  we  instead  use  the  spline  approximation  to  D  we 


once  again  obtain  the  same  expression  for  g 
with   P  now  defined  as  |^ 


(4) 


however 


P  = 


X    sin  5  (d+e) 


2  (e  cos  ?  +  d) 

\    <    /2   ^    \X\    <    2/2    '     J- 


2d 
d+e 


-  1  . 


Hence,  for  the  cubic  spline  we  have,  since  ^ 

\\\    <    2  y^  =  1.632993162 

e 
while  for  the  linear  spline  we  have,  since  g- 

IXl  <  2v^  . 


1 
2  ' 


=  0  , 
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Because  of  the  accuracy  and  stability  of  this  scheme 
it  is  used  in  our  subsequent  calculations.  In  addition,  no 
modifications  are  needed  at  the  boundaries  and  no  loss  of 
accuracy  results. 

Figures  II.4.1a-c   show  a  comparison  of  the  computed 
solution  to  the  exact  solution  for  our  model  problem  using 
the  exponential  spline  with  fourth  order  Runge-Kutta  scheme, 
The  calculation  was  done  on  three  successively  finer 
meshes  and  shows  visually  the  effect  of  mesh  refinement 
on  accuracy. 
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III. 5.   Inviscid  Burger's  Equation 

In  this  section  we  begin  our  treatment  of  nonlinear 
hyperbolic  conservation  laws  using  splines.  The  subject  of 
discussion  is  a  nonlinear  analogue  of  our  model  problem, 
namely  the  inviscid  Burger's  equation  [39] 

u.  +  uu  =0   on   (x,t)  e  (-°°,°°)  ^  [0,<»)  . 

This  equation  which  is  in  quasilinear  form  can  be  put 
into  the  conservation,  or  divergence,  form 

"t  +  (T-^x  =  °  • 

Before  proceeding  further  with  this  equation,  we 
digress  for  a  general  discussion  of  the  single  conservation 
law  [29] 

u^  =  f  (u) 
t     X 


or 


u.  =  a  u      w/  a  =  df/du 

t       X 


subject  to  the  initial  condition 

u(x,0)  =  (f  (x)  . 

Since  f (u)  is  in  general  nonlinear  we  cannot  guarantee  the 
existence  of  a  smooth  solution  for  all  time.  Instead  we  seek 
weak  solutions  satisfying 

OO  OO  00 

(w^u-w^f)    dx   dt   +       I    w(x,0)    (J)(x)    dx   =    0    , 

0      —°°  — OO 
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for  all  smooth  test  functions,  w,  which  vanish  for  | x | +t 
large  enough. 

One  must  consider  whether  a  numerical  solution 
technique  has  the  capability  of  capturing  such  a  weak 
solution.   We  now  present  the  following  convergence  result 
which  is  a  generalization  of  a  theorem  of  Lax  and  Wendroff 
[28].   First  recall  that   the  exponential  spline,  t (x) , 
can  be  defined  in  terms  of  its  first  derivatives  at  the 
knots.   These  values  are  determined  by  the  tridiagonal 
system  of  linear  algebraic  equations 


f.  ,-f. 

A.t!  .  +  B.x!  +  C.t!.  =  a.  •  -i_i — 5l  +  3 . 
1  1-1    11    1  1+1    1      h.      1 


^i-^i-1 
^i-l 


where 


A.  = 

1 


(e._i)(d.-e.) 


(di_i+e,_^)[(d._i-e._i)+(d.-e.)] 


B.  = 

1 


Ci  = 


"(dj-iXye.)  ^  (d.  )  (d._i-e._,) 


(di_i+e._^) 


(d.  +  e.) 


(ei) (di_i-ei_i) 


(d^+e^)   [(d^_3^-e^_^)  +  (d^-e^)] 


/   [(di_i-e,_,)  +  (d,-e,)] 


a .  = 

1 


3.  = 

1 


^i-l'^i-l 


d .  , -e .  1 +d. -e. 
1-1   1-1   1   1 


d.  -  e. 
1   1 

^i-l-^i-l 


1  + 


d,-e, 


d .  1 -e .  T+d. -e . 
1-1   1-1   1   1 


What  is  of  key  importance  to  us  here  is  that 


A.  +  B.  +  C.  =  a.  +  6.  =  1 
11111 
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Theorem.   If  we  approximate  u 


f   by 


Av  _  ^ 
2ft  -  ^x 


(where  x (x)  is  the  exponential  spline  interpolant)  and  as 

At  and  h  =  max  h.  tend  to  zero   v  converges  boundedly  almost 

i 
everywhere  to  some  function  u(x,t)   then  u(x,t)  is  a 

weak  solution. 

Proof;   We  have  by  assumption 


n+1   n 
V.   -V. 

At      ^  x'i  ' 


V.  =  <|> . 
1    1 


and  hence  that 


n 

n+1      n 
^i-l-^i-1 

i 

At 

+  b" 

1 


vf^-v-l 

.cj 

At 

^i+l-^i+1 


=  a'? 

1 


n+1   n 

-V, 

] 


f^-f"  , 
1  1-1 

^i-l 


,n. 


Multiplying  both  sides  by  W.Ath.  and  summing  over  all  grid 
points  yields 


,n 


00      oo      ^ 

V         V  i    rivn  /    n+1   „n      ,    ,  „n ,    n+1      n,  ,     _,n ,    n+1      n      s  ■,  ^.  , 

n=0   i=-<»  At    f^i^^i-l-^i-l)  -^^i^^i      -^i^-^  ^i^^i+l-^i+l^l^t^i 


CO       00  f"     .f"  f"-f" 

=  I        I        <[a^   ^+1   i   +  B^  \   i-^]At  h. 

ir=_oo  1  2.-1 


or  LHS  =  RHS   for  convenience, 


LHS  = 


OO       00 


(let  4gJ  =  gj*^  -  gj) 


Jo  J-,  '^i'"?'^"  ^Vi-1-"?B>?  -  "?c2  ^v?.l' 
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Lemma  (summation  by  parts) 


0    0 


n      n+1 


l      u    'Av      =    -   u  V      -      2.      Au    'V 
n=0  n=0 


00  CO 


LHS    =    -      I         I         At   h. 
n=0    i=-«>  ■' 


.n^    n+1 


n,    n+1 


A(W^a")v^"'|         A(W^B^)v" 
1    1      1-1    .  Ill 


At 
n,    n+1 -I 


At 


A,w?cj)vj:i 


At 


•  .LHS    ->    - 


Now 


l=-oo 

00  OO  00 

W^u   dx  dt   -  W(x,0)    (("(x)    dx    . 


0    -° 


RHS   = 


00  OO 


I        I        At   h.    W^a"   4±i  -   At   h.    w"a"  ^  +   At  h-V^S"  ^ 
'^  iiih^  iiihj  iiih 


n=0    i=-oo 


OO  OO 


1 
1-1 


-n 


II        At  h^.^w^.^a-.^   ^  -  At  h.V^a;  ^ 

n=0   1=-°°  1-1  1 


f"? 


-n 


1      1    1   h.    ,  1+1      1+1    1+1      h. 

1-1  1 


OO  OO 


i-1 


n=0   i=-<»  1  1-1  1 
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oo  oo 


n=0    !=-«>  *■  1-1 


00  oo 


^-     .  i\    1-1    1-1  1    1 

n=0   1=-°° 


\        \^1 


\-l 


h. 

1 


wjd-a^) 


!^    [<(l-a2)    -  "?.l<l-«?.l"    } 


OO  oo 


n=0    i=-a>  *-  1  1 


^i+1   .ji.n    .    ^i+1  ^n      ^n 


1 


'i+1 


i-1 


^la-o-l)] 


Now   let 

1 
then 


h.  h._,, 

1  1+1 


i-1 

oo         oo 


=    (l-6._^)-(l-6.)    =    6.-6._^ 


RHS   -^    1       I     [(Ax)-(aW)         +    6.  (aw)    -(1+6)  (w    )+6    -Wd-a)]    dx   dt 


0  -°° 


so  that  to  recover  a  weak  solution  we  require 

(i)    (aW)    bounded;   (ii)   6[(a-l)w]  +6  [W(l-a)]=0. 

XX  XX 

The  restrictions  p.  ->-p,  h.->-  h   Vi   together  with  the  assumed 
smoothness  of  W(x,t)  allow  us  to  conclude 
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RHS  -^  -  I   I  W^f  dx  dt  . 


0  -«° 
Hence 


oo    oo 


(V-J^u-W^f)  dx  dt  +    W(x,0)  <l)(x)  dx  =  0 

0   — oo  —00 

Q.E.D. 

Note  that  the  requirement  of  an  asymptotically  uniform 
mesh  appears  unavoidable.   Meanwhile,  the  assumption  of 
asymptotically  uniform  tension  may  be  relaxed  to  p  ->  a  step 
function.   Furthermore,  p(x)   a  step  function   is  sufficiently 
general  to  avoid  having  to  employ  uniform  tension  while 
allowing  for  the  fitting  of  local  phenomena  such  as  shocks 
and  other  discontinuities.   Hence,  it  is  not  overly  restric- 
tive. 

We  now  return  to  our  discussion  of  Burger's  equation. 
This  equation  admits  both  compression  waves  and  expansion 
waves  as  solutions  [29] .   We  consider  two  examples. 

Compression  Wave 

r  1   ,       X  <  0 
<t>{x)    =    I     1-x,   0  ;^  X  <  1 

[  0   ,   1  ^  X 
This  wave  front  steepens  until  at  t  =  1  a  discontinuity 
develops.  I.e.,  for  t  <  1, 


u(x,t)  =   < 


1   ,      X  <  t 

0    ,  1  <  X 


while  for  t  >  1, 
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r    1  ,   X  <  -y- 
u(x,t)  =  ^        ;L+t  , 


lo. 


Expansion  Wave 


0  ,   X  <  0 

1  ,   0  <  X 


This  problem  has  the  two  solutions 

0  ,   X  <  t/2 


u(x,t) 


and 

u(x,t) 


The  physically  relevant  solution  is  the  one  satisfying  the 
so  called  entropy  condition  (inequality)   which  requires 
that  the  characteristics  issuing  from  either  side  of  the 
discontinuity  curve  in  the  direction  of  increasing  t 
should  intersect  the  line  of  discontinuity.   This  excludes 
the  discontinuous  solution  u(x,t). 

The  task  before  us  is  now  clear.   We  must  devise  a 
numerical  scheme  that  will  capture  discontinuities  as  well 
as  select   the  physically  relevant  solution  from  the, 
generally  infinite,  collection  of  weak  solutions  to  an 
initial  value  problem. 

This  is  accomplished  by  adding  a  suitable  artificial 
viscosity  term  [24]  to  the  exponential  spline  -  Runge-Kutta 
scheme  as  applied  to  the  model  problem  in  the  previous 
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section.   This  effectively  shifts  the  derivative  calcula- 
tion upstream   thus  modeling   the  correct  domain  of 
dependence  while  prohibiting  expansion  shocks. 

The  switching  function  will  be  dependent  on  [u   | 
since  we  know  this  to  be  large  for  the  high  tension  values 
anticipated  in  the  neighborhood  of  a  shock.  Specifically 

D^[f(u.)]  =  (T^).  -  ^i^i/2(\)i+i/2  +  ^1-1/2(^x^-1/2 

where 

e   =   min  (h^-lf^^j,  1/2). 

Hence,  when  high  tension  is  present,  the  point  of  evalua- 
tion of  f  is  shifted  to  the  mid-point  of  the  appropriate 
adjoining  interval   since 


D^[f(Ui)]  ^  (V,  -  h[(ex^)^].  =  [T^  -  h(eT^)^],, 


which,  with  e  =  1/2,  becomes 

X    2   XX ' 1 

If  u  <  0   then  the  approximation  is 

D^[f  (u.)]  =  (\)i+  ^1+1/2(^x^+1/2-  ^i-l/2^Vi-l/2 
.  (Vi  ^  h[(eT^)Ji  =  f^x-^h(cV^]i  . 

Note  that  these  artificial  viscosity  terms  are  themselves 
in  divergence  form  thus  preserving  the  overall  conserva- 
tion form  necessary  for  convergence  to  a  weak  solution  in 
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the  limit  of  vanishing  mesh  width. 

Note  also  that  the  above  choice  for  e  produces  an 

3 
0(h  )  artificial  viscosity  term  away  from  the  shock. 

This  is  consistent  with  the  spatial  discretization  error 

on  a  nonuniform  mesh.   For  a  uniform  mesh  we  may  alter 

this  term  as  follows 

e  =  min(h^- |f^^|,l/2)  . 

4 
The  corresponding  artificial   viscosity  term  is  now  0(h  ). 

We  now  calculate  solutions  to  our  two  previous 

examples.   In  Figures  III.5.3a-f   the  expansion  wave  is 

seen  to  be  accurately  portrayed  with  any  inadequacies  being 

the  result  of  the  curve  fit  for  the  discontinuous  initial 

data.   The  compression  wave  calculation  displayed  in 

Figures  III.5.4a-k  likewise   reflects  a  high  degree  of 

accuracy.   Most  notable  are  the  predicted  location  of  the 

shock  for  large  t,  the  sharp  shock  resolution,  and  the 

conspicuous  lack  of  overshoots  and  undershoots  at  the  shock. 
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III. 6.   Riemann  Problem 

We  now  take  up  a  much  more  formidable  problem  from 
the  physical,  mathematical  and  computational  points  of  view. 
We  refer  to  the  classical  shock  tube  problem  of  Riemann. 
At  t  =  0  we  have  a  tube  of  infinite  extent  containing  a  gas 
in  two  distinct  states  separated  by  a  diaphragm.   The 
diaphragm  is  then  instantaneously  removed   the  result 
being  a  shock  wave  moving  in  one  direction   followed  by  a 
contact  discontinuity,  these  in  addition  to  a  rarefaction 
wave  travelling   in  the  opposite  direction.  This  situation 
is  illustrated  diagrammatically  in  Figure  III. 6.1. 

The  explicit  solution  to  this  problem  can  be  provided, 
e.g.   see  Liepmann  and  Roshko  [31] .    Specifically  all  of 
the  state  variables  change  on  passing  from  one  side  of  the 
centered  expansion  wave  to  the  other  (i.e.  Pa^     Po/  ^47^^-3  ' 
u^  ^  ^3^ •  This  transition  occurs  in  a  continuous  fashion 
although  derivatives  of  fluid  flow  quantities  may  have  a 
jump.   At  the  contact  discontinuity,  which  is  the  locus 
of  the  fluid  initially  at  x  =  0,  the  density  is  discontinuous 
(i.e.   P2=p^,  Pt '^  "^3  '  "2~"3^'  ^^^    flow  quantities  generally 
experience  a  jump  at  the  shock  (i.e.,  P^  ^  p,  ,  P-^  7^  P,  ,  u- 7^  u,  )  . 
Here  p  is  pressure,  P  is  density,  and  u  is  velocity. 

The  important  parameters  can  be  obtained  as  follows. 
The  shock  strength,   p_/p, ,  is  implicitly  related  to  the 
diaphragm  pressure  ratio,  p^/p, ,  by  the  basic  shock  tube 
equation 
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1  - 


(Y-1)  (a^/a^)  (P2/P1-I)" 


-2Y/(Y-1) 


/4Y  +2Y(Y+1)  (P2/P3^-l). 

1/2 
where  a.  =  (Yp./P.)    .   Thus  we  can  use  Newton's  method 

with  an  initial  guess  of  (l+p./p, )/2   to  iteratively 

calculate   Po/Pi  ^^^   hence  p„ .   We  already  know  that  p^=P2. 

We  thus  have  p^,p_,p-,p. .   We  can  then  determine  P-   from 

the  Rankine-Hugoniot  relation 


1  + 


Y+1 

Y-1 


Y+1  ,  P2 
Y-1    Pi 


Since  we  assume  a  perfect  gas  we  have  the  isentropic  relation 


1/Y 


for  the  determination  of  P,.   Now  we  also  have  P, /P-fP^/P^- 
The  shock  speed,  c  ,  is  deterroined  by 


c   =  a, 
s    1 


Y-1  ^  Y-1 


-1 1/2 
P2^ 


2  Y 


2Y 


The  head  of  the  rarefaction  wave  travels  at  the  local  speed 
of  sound,  a.,  through  the  undisturbed  fluid.  The  tail  of 
the  rarefaction  wave  travels  at  the  speed 

Y+1  I   I 

where  |u  |  =  u~  =  u,  is  the  speed  of  propagation  of  the 
contact  discontinuity  which  may  be  calculated  from  either 
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u. 


=  Mp^4. 


2/Y     "] 

(Y+l)P2/Pi+(Y-l)J 


1/2 


or 


U-,  = 


2a . 
4 

Y-1 


p   (Y-1)/2Y 
1  -  i~) 


These  quantities  furnish  a  complete  solution  to  the  problem 
with  the  exception  of  the  variations  within  the  expansion 
wave.   Thus  we  have  at  our  disposal  the  means  for  an  exact 
comparison  on  a  problem  of  substance. 

The  one  dimensional  Euler  equations  may  be  written 
in  the  conservation  law  form  [4  6] 

P^  +  (Pu)    =   0 

(^)t-^(^-^P^x=0 

(e)^+(^(e+p))^=0 

1   2 
where  m  =  Pu   is  momentum  and  e=  P£+2-Pu   is  the  total  energy 

per  unit  volume  with  e  the  internal  energy  per  unit  mass. 

For  a  polytropic  gas  e  =  p/(Y-l)P.   Hence  we  have 


p  =  (Y-l)pe  =  (Y-1)  (e  -  I  Pu^)  =  (Y-1)  (e  -  i  ^)  . 


We  may  write  the  above  in  the  vector  form 


->■  -4- 


\   ^  ^x(U) 


=  0 


with  the  state  vector 


U 


P 
m 
e 
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and  the  flux  vector 


F(U)  = 


m 


m 


+  P 


S  (e+p) 


This  may  also  be  written  in  the  quasilinear  form 


U.  +  A(U)U  =  0 
t         X 


where 


A(U)  ^   ~  = 


3f 
35 


(Y-3)u  /2 


1 

(3-Y)u 


(Y-l)u^-Yeu/P   ^-3(Y-1)  ^ 


0 

(Y-1) 
Yu 


with  eigenvalues  ^■,    =  u,  ^o  ~  u+c,   ^,  =  u-c.   Here  c  is 
the  local  speed  of  sound  and  is  determined  from 

c2  =  IE  =  I  (Y-1)  [e  -  1  nii  ] 

At  this  point  we  note  that  many  subsequent  relations 
are  merely  one  dimensional  specializations  of  two  dimensional 
results   derived  in  the  next  section.  Hence,  we  omit  detailed 
derivations   in  this  instance   so  as  to  avoid  redundancy. 

In  what  follows  we  would  like  to  produce  a  Q  3 

Q~  A  Q  =  A   (diagonal) . 

However,  computing  the  eigenvalues  and  eigenvectors  of  A 
is  quite  formidable  due  to  the  complexity  of  the  Jacobian 
matrix.   Therefore,  we  take  the  following  circuitous  route 
[53]. 
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The  one   dimensional   Euler   equations  may   be  written   as 


where 


and 


U.    +  A  U     =0 
t  X 


U   =    [P      u      p] 


u 

P 

0 

A   = 

0 

u 

1/P 

_  0 

Pc2 

u 

ere   A  = 

M   -""AM 

where 

11 

M   = 


u 


0 

P 


0 

0 


u   /2       Pu      1/(Y-1)_ 


M 


-1 


1 
-u/P 


0 

1/P 


(T-l)uV2       (l-Y)u 


0 

0 

(Y-1) 


A   is  more  easily  diagonalized   as 


:-i 


Q      A   Q  =    A    =   diag     [u        u+c        u-c] 


with 


Q  = 


1      P/(/2c)      P/(/2   c) 
0  1//2         -1//2 

0         Pc//2         Pc//2 


^ 


-1 


1 
0 
0 


0  -1/c^ 

1//2         l/(/2    PC) 
-1//2      l/(/2    PC) 
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Hence  Q  =  M  q"  =>  q"-"-  =  q"-'-m~^. 

Now  consider  our  original  equations 

->■      -»• 

U.  +  A  U   =  0   =^ 
t        X 

U^  +  Q  A  Q~''"U^  =  0  . 

Now  freeze  U,  i.e.  perform  a  local  linearization  of  the 

-    -l-> 
system  of  equations.   Also  let  U  =  Q  U.  Then  we  have 

U.  +  A  U   =0 
t       X 

which  is  nothing  more  than  our  model  problem  in  triplicate. 

However,  since  for  subsonic  flow  we  have  u+c  and  u  -  c  of 

opposite  sign  we  need  to  shift  spatial  derivatives  in 

conflicting  directions. 

We  could  circumvent  this  difficulty  if  we  could  split 
our  flux  vector,  F,  into  pieces  with  univalent  eigenvalues. 
This  is  precisely  the  motivation  for  the   Flux  Vector  Split- 
ting technique  of  Steger   and  Warming  [50]   which  we  now  adapt 
to  our  purposes. 

Observe  that  F(U)  is  a  homogeneous  function  of  degree 
one.  I.e.  F(otu)  =  ctF(U).   Euler's  theorem  on  homogeneous 
functions  then  implies  that  F  =  A  U  .  Thus 

F  =  AU  =  QAQ   U  =  Q(A  +  A  )Q  "^U 

=  qa''"q~  U  +  QA~  Q~  U  =  f'^  +  f~ 

where  A  has  nonnegative  elements  and  A   has  nonpositive 
elements.   We  prefer  the  following  split: 
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,+  _  u  +  |u| 
1  "     2 


x+  -  x+ 


^1  = 


u  -   u 


^2  =  ^1 


X3  =  X^  -  c 


;>+ 


Note  that  this  splitting  yields  homogeneous  F   and  F 
In  general,  if 

A  =  diag  [X 
then 


X^    X^] 
2     3^ 


2Y 


2(Y-1)X^+X2+X3 

2  (Y-1)  X^u+X2  (u+c)+X3  (u-c) 

(Y-l)X^u^+  -J-    {u+c)^+  ~-    (u-c)^+w 


=  QA  Q  ■'u 


yS      •s 


where 


w  = 


(3-Y)  (X2+X3)c' 
2(Y-1) 


We  now  generalize  our  scheme  to  this  setting.  Once 
again  a  fourth  order  Runge-Kutta  integration  is  used  in  time 
while  F  (U)  is  approximated  by   D?=D?  +D?  where, 

X  X        X         X 

letting  F   and  F   be  the  generic  components  of  F"*"  and  F 
respectively, 

V^("i)  =  (^^i  -  <+l/2(^x^i+l/2  ^    4-1/2(^^1-1/2 
°>"(^i)  =  (T^)i  +  ^:+i/2(\)i+i/2  -  Vl/2(\^-l/2  • 


Here 


e+  =  min  (h^-JF^^I,  1/2) 


e"  =  min  (h  'If^^],  1/2) 


174 


We  now  present  some  computational  results  obtained 
using  this  technique.   The  items  of  interest  are  the  predic- 
tion of  correct  quantity  levels,  the  location  of  the  shock, 
contact  discontinuity  and  rarefaction  wave,  the  degree  of 
resolution  of  the  discontinuities  and  the  suppression  of 
oscillations,  overshoots  and  undershoots  in  regions  of  rapid 
variation. 

The  first  example  is  taken  from  Sod's   survey  paper  [46], 
The  pressure  ratio  has  a  value  of  10  with  the  diaphragm  loca- 
tion at  X  =  0.5.   The  calculation  was  performed  on  both  a 
coarse.  Figs.  III.6.2a-e,  and  a  fine  mesh.  Figures  III.6.3a-e. 

The  second  example  is  from  Steger  and  Warming's 
Flux  Vector  Splitting  report  [50] .   The  pressure  ratio 
has  a  value  of  5  with  the  diaphragm  location  at  x  =  3. 
This  calculation  was  also  performed  on  both  a  coarse. 
Figures  III.6.4a-e,  and  a  fine  mesh.  Figures  III.6.5a-e. 

It  is  clear  that  the  method  performs  very  well  by  all 
the  above  criteria.   Of  particular  note  are  the  invariance 
of  shock  smearing  (in  units  of  mesh  widths)  to  mesh  size 
and  the  resolution  of  the  contact  discontinuity  for  large  t. 
These  results  are  competitive  with  those  displayed  in  the 
referenced  works. 
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III.7.   Transonic  Channel  Problem 

This  section  takes  up  the  generalization  of  our 
approach  to  multidimensional  problems.   The  problem  that 
we  consider,  transonic  flow  in  a  channel,  presents  the 
additional  complication  of  requiring  the  treatment  of 
boundaries  [19,22,27,52]. 

We  first  discuss  the  two  dimensional  Euler  equations. 
This  is  followed  by  the  extension  of  Flux  Vector  Splitting 
to  two  dimensions  in  an  arbitrary  coordinate  system.   As 
promised  earlier  we  take  this  occasion  to  supply  full 
details.   With  this  background  material  available  to  us, 
we  next  describe  the  problem  of  transonic  flow  over  a 
bump  in  a  channel.   We  then  detail  our  numerical  approach, 
the  discussion  of  the  consistent  enforcement  of  boundary 
conditions  occupying  a  central  position.   We  conclude  with 
the  results  of  some  numerical  calculations. 


2D  Euler  Equations 

The  two-dimensional  Euler  equations  may  be  written  as 

the  system  of  hyperbolic  conservation  laws 

iU  ^  iF  ^  3G  ^ 
3t    8x    9y 


where 


U  = 


P 
m 
n 

e 


F  = 


Pu 
Pu  +p 


Puv 
u{e+p) 


Pv 
Puv 
Pv  +p 
v(e+p) 


and  m  =  Pu,  n  =  Pv. 
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Here  P  is  the  density,  u  and  v  are  the  Cartesian 
velocity  components  in  the  x  and  y  directions   respectively, 
and  e  is  the  total  energy  per  unit  volume.   Note  that  e  is 
related  to   e,  the  internal  energy  per  unit  mass,  by 
e  =  pe  +  I  (u^+  v^)  =  pe  +  (m^+  n^)/2P. 

In  general,  the  equation  of  state  is 

P  =  p(P,e) 
which  for  a  perfect  gas  becomes 

p  =  (Y-l)pe 

2   2 

^  p  =  (Y-1)  [e  -  (m^  +  n^)/2P]  =>  e  =  ;j^  +  ^L^^ 

where  Y  is  the  ratio  of  specific  heats. 

The  above  system  of  equations  may  also  be  written  in 
the  quasilinear  form 

3t      dx      dy 

where  A  s  ^  ,  b  =  -^   ,   are  the  Jacobian  matrices. 
Let  P=  k,A  +  k-B  ;  k, ,k2  e  m.      The  system  is  hyperbolic  at 
the  point  (x,y,t,u)  ifsQaQ  PQ  =  A  (diagonal)  with 
X.  real  Vi   and  the  norms  of  Q  and  Q   uniformly  bounded. 
We  next  explicitly  calculate  the  elements  of  A  and  B. 
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F  = 


in 


^+  (Y-1)  [e-(m^+n^)/2P] 


mn 

P 

5  (e+  (Y-1)  [e-(m^+n^)/2P]) 


3f 


3-Y   2  ^  1-Y   2 
-2-   "  -^-2-^ 


uv 


-1 

0 

0 

(Y-3)u 

(Y-l)v 

1-Y 

-V 

-u 

0 

^+  (l-Y)u(u^+v^)    -^+Ili  (3u^+v^)   (Y-l)uv   -Yu 


G  = 


n 

mn 
P 
2 

\-   +  (Y-1) [e-(m^+n^)/2P] 
J  (e+(Y-l) [e-(m^+n^)/2P]) 


uv 


3-Y   2  ^  1-Y   2 

—^r-   V  +  — =—  u 


-V 


(Y-l)u 


3G 


-1 


-u 


(Y-3)v 


0 
1-Y 


^+  (l-Y)v(u^+v2)   (Y-l)uv   -^+^(3v^+  u^)   -Yv 


=  B. 

Because  of  the  complexity  of  these  Jacobian  matrices, 
the  calculation  of  A,  Q,  Q    is  quite  cumbersome.  Hence  we 
recast  the  equations  in  the  nonconservative  or  primitive 
variable  form 
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where 


dt  9x      oy 


U  = 


u 

V 


u 
0 
0 
0 


P 
u 
0 


0 
0 
u 
0 


0 

1/P 
0 
u 


B 


V 

0 
0 
0 


0 

V 

0 
0 


P     0 
0     0 

1/P 


V 


Pc 


V 


where  c  =  Yp/P  = 


_  Y(Y-l)  r      _    (m^+n^)  , 
P    ^^      2P 


is  the  local  speed  of  sound. 

We  obtain  this  result  as  follows; 


8U 
3U 

3U 


3U 


3U 
3x 


+A-^+Bt^=0 


3U 


3U    3t    ^   9~   3U   3x   "   g~   ^  ^ 
3U 


3t 


+  A 


3U   3U 


au 


3x 


+  B 


9U.  l£  =   0 
3U   ^y 


9U  ^  Pu   ,   9U"1  .  3U 


3U 
9U 


B 


9U 
3U^ 


3U 
3y 


=   0 


=   0 


3t      3x      dy 
with   A  =  m'-^'AM  ,   B  =  M~  BM 


where  M  =  -^     =*  M 
3U 


3U 
3U 
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NOW,    U  =    [P,m,n,e]'^  and  U  =    [P,u,v,p]'^ 


_9U_ 
8U 


u 


2^   2 

u  +v 


0 

P 

P 

Pu 


0 
0 
0 

pv 


0 
0 


1 


and 


1 

0 

0 

0 

9U 

m 
n 

n2 

1 

P 

0 

0 

1 
P 

0 
0 

(Y-1)    m'^+n'^ 

L  2    ■    p2 

(1-Y) 

m 

P 

(l-Y)J 

Y-1 

so  that 

— 

1 

0 

0 

0 

u 

P 

0 

0 

M  = 

V 

P 

0 

0 

- 

(u^+v^)/2 

Pu 

Pv 

1/(Y-1) . 

and 

1 

0 

0 

0 

M-l  = 

-u/P 
-v/P 

1/P 
0 

0 

1/P 

0 
0 

JY- 

-1)  (u^+v2)/2 

(1-Y) 

u 

(l-Y)v 

(Y-1) _ 
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We  thus  have 


A  =  m'-'-A  M  ,     B  =  M  ■''B  M 


SO  that  if  we  have 


and 


then 


P  s   k^A  +  }^^B 


Q  -"-p  Q  =  A 


P  =  k,M~"'"AM  +  k^M  •'■B  M  =  M  ''■  (k^A  +  k2B)  M  =  M~  P  M  . 

This  first  of  all  implies  that  A  =  A  since  P  and  P  are  now 
seen  to  be  similar.   In  addition,  we  now  have 

Q~-'-M~''"P  M  Q  =  A   =► 

Q  =  M  Q   and   q"-"-  =  Q~"^M~-^  . 

It  remains  to  diagonalize  P  =  k  A  +  k^B  . 


k.u+kjV 

k,p 

k^P 

0 

p  = 

0 

k,u+k-v 

0 

\/9 

0 

0 

k.u+k^v 

k^/P 

- 

.     0 

k^Pc^ 

k2Pc^ 

k,u+k_v 

so   the 

it 

' 

det  (P  -  XI)  =  0  =* 
X^=  X2=  kj^u+k2v;  X^  =  X^+c  (k^+k2) -"-^^  ;  X^  =  X^-c  (k^+k2)  ^^'^ 

The  corresponding  eigenvectors  are  obtained  as  follows. 


202 


(i)         A   =  k^u+k2V     => 


0 

k.p 

k2p 

0 

0 

0 

0 

0 

0 

0 

kj^pc^ 

k2Pc 

^4    '- 

--    0 

'         ^3   = 

■>." 

let 


Qi    = 


1 
0 
0 
0 


Q2    = 


0 

L 


k^/P 

k2/P 


I_X4 


=    0 


where  k^  =  k^/ {k^+k^)^"^^ ,    k^   =  k^/ (k'^+k^)'^^^ . 


(ii)      X  =  k^u+k2V  +  c(kj+k2)-'-/^ 


,,2_^,  2,1/2 
-c(kj^+k2)    ' 

0  -c(kj+k2)-'-'^^ 


k^P 


k2P 


0  0  -c(kj+k2)-^/^ 


kj^pc' 


k2Pc' 


k^/p 
k2/p 
-c(k2.k2)l/2_^ 


1-^4 


=    0    =>^   X      =    — =■   X 
"         ^2         PC    ^4 


.    let 


^3  = 


P/(/2    c) 

k2/^ 
Pc//2 
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(iii)    X   =   k^u+k2V-c(k^+k2)-'-/^ 


,,  2^,  2>  1/2 
c(k^+k2) 

0 

0 

0 


c(k2H-)c2)V2 


kj^Pc' 


k2P 

0 
c(k2+k2)l/2 

k^Pc^ 


kj^/P 

k2/P 

,,2^,  2,1/2 
c(k^+k2) 


L^4 


=    0   ^ 


^2    = 


PC    ^4 


let 


^4    = 


P/(/2    c) 

-k;L/^ 
-k2/^ 
PC//2 


Hence 


1 

0 

P/(/2   c) 

P/{/2    c) 

Q  = 

0 
0 

k2 

ki//2 

-ki//2 
-k2/*^ 

1 

0 

0 

Pc//2 

Pc//2 

and 

~  1 

0 

0 

-l/c2    ■ 

Q-^ 

= 

0 
0 

-^1 
k2/'^ 

0 
l/{/2    Pc) 

_  0 

-ki//2 

-k2/^ 

l/(/2    Pc)_ 

Note 

that 
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Q  -"-A  Q  = 


and 


Q'-'-b  Q  = 


u 

0 

0 

0 

0 

u 

t^^/yn 

dk^/^ 

0 

ck2/^ 

u+ck^ 

0 

0 

.    C\i^/^ 

0 

u-ck. 

V 

0 

0 

0 

0 

V 

-ck^//2 

-ckj^//2 

0 

-ck^//2 

v+ck™ 

0 

0 

-ck,//2 

0 

v-ck„ 

so  that  this  particular  choice  of  Q  not  only  diagonalizes  P 
but  also  simultaneously  synunetrizes  A  and  B. 

2D  Flux  Vector  Splitting 

3U    9F    9G  _  0 
?t  ^  9x  +  9y  -  ° 


au 


3U 


9G 


_  3F 


9G 


^  +  A-  33^  +  B-g^  =  0  ;   A  =  gy  ,   B  =  ^^  . 

The  crucial  observation  is  to  note  that  both  F(U)  and  G(U) 
are  homogeneous  functions  of  degree  one.  I.e. 

F(au)  =  aF(U)  ;     G(au)  =  aG(U)  . 

Euler's  theorem  on  homogeneous  functions  then  allows  us  to 
conclude  that 

F  =  AU  ,     G  =  BU  . 


We  have  noted  before  that  (Q  =  Q(kj^,k2)  etc.) 
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q"^(1,0)  a  Q(1,0)  =  A(1,0) 


and 


q"^(0,1)  B  Q(0,1)  =  A(0,1) 


u 


u 


u+c 


v+c 


u-c 


v-c 


A  =  Q(1,0)  A(1,0)  q"^(1,0) 


and 


B  =  Q(0,1)  A(0,1)  Q  -"-(O,!) 


hence 


and 


F  =  Q(1,0)  A(1,0)  Q  ^(1,0)  U 
G  =  Q(0,1)  A(0,1)  Q'-'-CO,!)  U 


Now  decompose 


A(1,0)  =  A"^(1,0)  +  A  (1,0) 

,+ 


A(0,1)  =  A'  (0,1)  +  A  (0,1) 

where  A  and  A  have  positive  and  negative  eigenvalues, 
respectively.  This  now  leads  to  the  following  splitting 
of  the  flux  vectors  F  and  G. 

F  =  Q(1,0)  [A'^(1,0)  +  A~(1,0)]  Q~^(1,0)  U 
G  =  Q(0,1)  [A'^(0,1)  +  A"(0,1)]  q"^(0,1)  U 


fF=  [Q(1,0)  A'^(1,0)  Q"-^(1,0)  +  Q(1,0)  A"(1,0)  q"^(1,0)]U 

=     (a"*"  +  A~)  U 
G=  [Q(0,1)  A"^(0,1)  q"-'-(0,1)  +  Q(0,1)  A"(0,1)  q"^(0,1)]U 

S  (b"^  +  B~)  U 
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F  =  a"^U  +  A~U  S  f"^  +  F~ 

G  =  b"'"u  +  B~U  =  G"*"  +  G~. 
Note  that,  in  general, 

h"   ^    ^  A~  ^  ^     b"-  ^  ^     b"  =  ^^" 


as  has  been  observed  by  Steger  and  Warming  [50] .  However, 
we  do  have  the  following  result  which  has  eluded  the 
attention  of  earlier  authors. 


Theorem.  If  the  A  splitting  is  chosen  so  as  to  produce 
a  homogeneous  F   then  A  =  g^r—  . 


Proof:   We  have  f"*"  =  a'*'(u)U.  Define  A^(U)  =  9^. 
Since  F  is  homogeneous  we  have  F  =  A  (U)U  and  hence 
a''"(U)U  =  A_|_(U)U  V  U  e]R^.   Thus  E(U)-U  =  0  V  U  where 
E  s  A  -A  •   Let  P   E  P  =  J  be  the  Jordan  canonical  form 
and  hence  Y.   =      P  J  p"-*- .   This  results  in  JU  =  0  V  U  g  IR^ 
where  U  =  P  U.   Therefore,  all  the  eigenvalues  of  E  are 
zero  and  J  has  no  ones  along  its  super-diagonal.  Hence 
E  =  0,  i.e.  a"*"  =  A^.  Q.E.D. 

Note  that  similar  results  obtain  for  A  ,  B  ,  and  B  . 
With  these  considerations  aside,  we  solve  the  problem 

U^  +  f"*"  +  F~  +  g"*"  +  G~  =  0 
t    X    X    y    y 

by  upwinding  F   and  G  while  downwinding  F   and  G  . 

As  we  have  seen  above 

f"^  =  Q(1,0)  A'^(1,0)  q"^(1,0)U 

F~  =  Q(1,0)  A"(1,0)  q"^(1,0)U 

g"^  =  Q(0,1)  A"^(0,1)  q'^(0,1)  U 

g"  =  Q(0,l)  A"(0,1)  q"^(0,1)  U  . 
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In  order   to   facilitate   the   computation   of   these 
flux  vector  splittings  we  present  the  general  form  for 
$  =  Q(k,  ,k2)A(kj^,k2)Q~'''{k^,k2)U.   Recalling  that  Q  =  M  Q 
and  Q~   =  Q~  M~   and  upon  performing  the  required 
multiplications  we  arrive  at 


2(Y-1)A^+A2  +  X^ 
2  (Y-1)  ^nU+X  (u+ckj^)+A^  (u-ck^) 

2  (Y-1)  X^v+X^  ^^"^^^2^  "^^4  ^^"^^2^ 
(Y-l)^^(u^+v^)+  -^    [(u+ck^)^+(v+ck2)^] 

+  -^  [(u-ckj^)^+(v-ck2^^1+^ 


^    2Y 


where 


/-s.        /%. 


W 


(3-Y)  {A3+X^)c' 
2(Y-1) 


2   2  ■'-/^   ~  2   2  1/2 

and,  once  again,  k,  =  kj^/(k,+k2)    ,  ^2   ^   ^2^  ^'^l''"'^2^ 

We  use  the  homogeneous  splitting 


u-  u 


X+(1,0)=X+(1,0)=  ^i±M  ,  x-(l,0)=A2(l,0)=  ^ 
X+(0,1)=X+(0,1)=  ^^  ,  X-(0,1)=X-(0,1)=  ^^ 


X^(l,0)=X+(l,0)+c 
X^(0,l)=X+(0,l)+c 
X+(1,0)  =  X^{1,Q) 
X+(0,1)=X+(0,1) 


,  X^(1,0)=X^(1,0) 

,  X^(0,1)=X]^(0,1) 

,  X4(l,Q)=X^(l,0)-c 

,  X~(0,l)=Xj^(0,l)-c 
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These  results  can  be  generalized  to  an  arbitrary 
coordinate  system  as  follows.   Consider  the  transformation 
of  coordinates  (x,y)  ->  (X,Y)  and  its  effect  on 

•3t    9x    8y    "  • 
=*   (JU)^  +  (y^F  -  x^G)^   +  {x^G   -  Y^F)^   =  0 
(where  J  ^  ^v^Y  ~  ^Y^X^   which  by  the  homogeneity  of  F  and  G 

V  X  XV 

=>    (JU)^  +  {-^        F(JU)  -  -^      G(JU))j^+  (-j^  G(JU)-  -Y   F(JU))y  =  0. 
Letting  U  =  JU  we  arrive  at 
8n    9    ^Y    ^    ^Y    ^     3    ^y         '^   ^y    ^ 


while  letting 


produces 


^  Yy  ^V 

F(.)  s    -JL  .  F(-)  -  -^  .  G(-) 
G(-)  ^    -    -^    '    F(.)  +  -^  .  G(-) 


3ri    3  ^  ^     3  '^  ^ 


Hence,   conservation   form   is   preserved  under   such 
a  transformation  as  is  homogeneity  of  the  flux  vectors. 
We  are  thus  led  to  splitting  F(U)  and  G(U) .  The  following 
obseirvation  simplifies  matters  considerably. 
In  order  to  split,  e.g.. 


/v   yv 


Yy     -    ^v    - 
F(U)  =  -^'  F(U)  -  -j^-  G(U)  =  yY-F(U)  -  x^-GCU)  =  F(U) 

we  simply  split 

F(U)  =  Yy  •  F(U)  -  Xy  •  G(U)  =  k^F  +  k2G 
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with  k,  =  Yy  and  k-  =  -x^.      This  is  conveniently  done 
using 

f"*"  =  Q(k^,k2)  A'^(k^,k2)  Q"-^(k^,k2)U 

F~  =  Q(k^,k2)  A"(k^,k2)  Q"-^{k^,k2)  U 

which  are  given  in  general  form  by  $.  Note  that 


A  = 


k,u+k2V 


k,u+k„v 


k^u+k2V+c(k^+k^)^/^ 


k^u+k2V-c(kJ+k2)''"^^ 


We  use  the  splitting 

Xj  =  X+  =  (k^u+k2V+lkj^u+k2v|)/2,  X+  =  X++c,   ^4  =  ^t  ' 
X^  =  X   =  (k,u+k2V- |k,u+k2v| )/2 ,  ^o   ~    ^1       '       ^4  ~  ^i~c- 

The  same  split  is  used  for  G(U)  =  G(U)  with  k,  =  -y„ 
and  k-  =  x^. 

Flow  Over  a  Bump 

Consider  a  channel  whose  upper  wall  is  straight  and 
whose  lower  wall  is  likewise  straight   and  parallel  with 
the  exception  of  a  protrusion  or  "bump".  We  consider  the 
calculation  of  inviscid  rotational  flow  in  this  geometry. 
In  our  calculations  this  bump  will  be  a  B-spline,  S(x). 
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We  assume  that  the  flow  is  unifonn  and  subsonic  at 
upstream  infinity.   With  a  normalization  this  becomes 
P^  =  1,  u^  =  1 ,  v^  =  0.   At  downstream  infinity,  which  is 
also  assumed  subsonic,  we  specify  p  =  p^.   The  flow  tangency 
condition  is  invoked  along  the  channel  walls. 

We  will  attempt  to  march  from  an  initial  flow  field 
to  a  steady  state  continually  enforcing  the  above  boundary 
conditions.   The  required  initial  conditions  are  generated 
as  follows. 

1    ^1 

"  Y(Y-1)M^    '^ 

To  obtain  an  initial  velocity  field  we  generate  u  and  v 
along  the  walls  such  that  we  have  flow  tangency  there. 
The  resulting  distributions  are  then  linearly  blended. 

^(^'^max)    =   1    '      ^(^'^max^    =   °- 

2      2 

Along  y  =    0,    u   +v     =1      together  with  v  =   u-S'  (x)    =* 

u(x,0)    =   ^  ,      v(x,0)    =  ^'^^'' 


>/l+[S'(x)]^  -/l+[S'  (x)]^ 

Y  y 

u(x,y)    = •    u{x,y        )    +    (1 )    •    u(x,0)    ; 

■^max  -'max 

v{x,y)    =  -^   •    v(x,yj^^^)    +    (1   -  -—^ — )    '    v(x,0)    . 
^max  ^max 

For  calculational  purposes,  we  will  need  a  mapping 
of  the  above  geometry  to  a  rectangle.   To  obtain  a  boundary 
conforming  grid  we  induce  a  shearing  of  the  y-coordinate. 
In  order  to  cluster  grid  points  over  the  bump  we  invoke 
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a  stretching  of  the  x-coordinate.  ■ 

We  are  thus  led  to  consider  the  transformation 


t  =  T,   X  =  ?(X),   y  =  Y  +  S(x(X))-[l  -  —^ ]  =* 

^max 

Xj^  =  5'(X)  ,  Xy  =  0 


This  sends  the  conservation  law 

U.  +  f   +  g  =  0 
t    X   ^y 

to 

^       ->-->■       ->     ■*■ 
(JU)^  +  (yYf-XYg)^  +  (Xj^g  -  yxf)Y  =  ° 

where  J  =  x  y  -  x^y^,  •   Letting  r  =  JU  ,  this  becomes 

r^  +  [-^   f(r)  --^  g(r)3x  "^  f"  X  ^^""^  ^~T   ^^^^^y  =  ° 

by  the  assvimed  homogeneity  of  f  and  g.  Figure  III.  7. 1 
displays  the  resulting  mesh. 

Numerical  Solution  of  the  Channel  Problem 

We  now  generalize  our  Runge-Kutta  spline  scheme  to  two 
dimensions.   It  will  be  clear  that  the  corresponding  generali- 
zations to  even  higher  dimensions  are  straightforward.  The 
enforcement  of  boundary  conditions  is  not  considered  in 
this  section  but  is  deferred  to  the  following  section. 

We  saw  in  the  previous  section  that  our  problem  reduces 
to  solving 
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r^  +  Fjj(r)  +  GyCr)  =  0 
on  a  rectangular  domain.  Here  r  =  J[P  m  n  e]   and 

F   =    [^   .   f   _   J^   .   g] 

^  =   f-  1-  •  f  +  J--  g] 
where  f  and  g  are  the  flux  vectors  in  the  2D  Euler 
equations.   Note  that  we  have  preserved  conservation  form! 

A  quick  calculation  shows  that  in  this  context  the 
fourth  order  Runge-Kutta  scheme  becomes 

"i  =  "o  -  I§  fV^^o^  -^  V^^o^l 
"2  =  "o  -  §7  tV^Ui)  +  V^S^)] 

+  DY(r(UQ)  +  2r(u^)  +  2r(u2)  +  r(U3))] 

where 

J  F(u)  =   y^f (u)  -  XYg(u)  =  $(u) 

J  G(U)   =   -Yj^f  (U)  +  x^g(U)  =   f  (U)   . 

->■         -»■ 
Now,  D  $  and  D„r  are  defined  as  in  the  one  dimensional 

->-       ->■ 

case.   First  $  and  r  are  split  as  previously  described 
producing 
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Letting  *  /  $"/  T  ,  r~  denote  the  generic  components  of 

■^+  ^-  "^+  "^- 

$  ,$  ,r  ,r    respectively  we  define 

D-*^U.)    =    (V,    -    4+1/2  (Vi+1/2    -^    4-1/2  (Vi-1/2 

4*"("i^    =    (^X^i   +    4+1/2(^X^+1/2    -    4-l/2(Vi-l/2 
where 

e"^  =  min(Ax^-l4xl'^/^^ 
and  -, 

e"  =  min(Ax^-l'^xx'  '^Z^)- 

Correspondingly 
D-r^U.)    =    (V-     -    4+1/2  (Vi+l/2    -^    4-1/2  (^Y^-1/2 
Djr-(U.)    =    (T^).    +    ^:+i/2(^Y)i+i/2    -    4-1/2  (Vi-1/2 

where  e"*"  =  min(AY^«  |  F^y  1/1/2) 

and  e"  =  min(AY^« | TyyI '1/2)  • 

Boundary  Condition  Treatment 

For  the  discussion  of  boundary  conditions  alone,  we 
consider  the  two-dimensional  (2D)  Euler  equations  in 
nonconservation  form.   All  required  notation  is  defined  in 
the  previous  section  on  the  2D  Euler  equations.  Hence,  in 
terms  of  the  primitive  variables  (P,u,v,p),  we  have 


Ut  +  AU^  +  BUy  =  0 
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Letting  k,  =  1,  k 


=  0  in  the  definition  of  Q  yields 


and  hence 


-1 


1 
0 
0 
0 


0 

0 

■1 

0 


P   -1 


c/2 

1 

c/2 
-1 

/2 

/2 

0 

0 

PC 

PC 

/2 


1 

0 

0 

0 

0 

-1 

0 

1 

/2 

0 

0 

-1 
/2 

0 

/2   -J 


2 


Pc/2 

1 

Pc/2 


ote   that 

u 

0 

0         0    ~ 

V 

0 

0 

0 

S~-'-A  S  = 

0 
0 

u 
0 

0         0 
u+c      0 

,       s'-'-B   S   = 

0 
0 

V 

-c 

/2 

-c 
/2 

V 

-c 

/2 
0 

0 

0 

0      u-c 

0 

-c 

0 

V 

/2 


Letting  k,  =  0,  k- 


1   in  the  definition  of  Q  yields 

P      P   -I 


1 

0 

c/2 

c/2 

0 

1 

0 

0 

0 

0 

1 
/2 

-1 
/2 

0 

0 

PC 

/2 

Pc 
/2 

and  hence 
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-1 


1 

0 

0 

-1 
c2 

0 

1 

0 

0 

0 

0 

1 

/2 

1 
Pc/2 

0 

0 

-1 
/2 

1 

Pc/2 

Note  that 


T~  A  T  = 


u 


0    0 


0 

u 

c 

c 

/2 

/2 

0 

c 
/2 

u 

0 

0 

c 
/2 

0 

u 

T~  B  T 


0    V 


0    0   v+c   0 


0   v-c 


Henceforth,  we  identify  a  frozen  quantity  by  a  bar. 

Now,  along  the  channel  inlet  and  outlet   the  number 
and  type  of  boundary  conditions  are  determined  by  the 
equation 

U^  +  A  U   =  0  . 
t       X 

We  now  perform  a  local  linearization  via  frozen  values  of 

the  elements  of  A.  Recall  that 

S  A  S  =  A   H  diag  [u,u,u+c,u-c] 


A  =  S  A   S 
u 


-1 


U^  +  SAS-^-'U   =0 
t       u      X 

s~^\j^  +   A  s"""":;  =  0 

tux 
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Making  the  substitution 


w  =  s'-'-u 


we  have,  as  a  consequence  of  the  linearization. 


W^  +  A  W  =0 
t     u  X 


which  is  a  system  of  uncoupled  scalar  equations.  Since 
the  inlet  is  assumed  subsonic  we  have  three  positive 
eigenvalues  and  one  negative  eigenvalue.   We  hence  specify 
three  conditions  at  the  inlet  being  careful  not  to  deter- 
mine the  characteristic  variable,   W.  ,  associated  with 
u-c.   At  the  outlet  we  have  the  opposite  situation  and 
hence  specify  one  condition  being  careful  not  to  determine 
W, ,  W-  or  W^.    We  thus  have 


W  = 


W, 


w. 


w. 


w. 


P  -  -2- 
c 


-  V 


^  [u+^] 


/2 
/2 


PC 

[-U+  -E-] 

PC 


(=  S"^U) 


Along  the  upper  channel  wall  the  relevant  equation  is 


U^  +  B  Uy  =  0 


Recall  that 


T~  B T  =  A   =  diag  [v,v,v+c ,v-c] 
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-1 


B  =  T   A   T 
V 


U.  +  T  A   T~''"«U„  =  0 
t       V       Y 


T  ■'■  U^  +  A^  T  "'"  Uy  =  0  . 


Making  the  substitution 

V  =  T   U 
together  with  freezing  the  elements  of  B  at  their  current 
values  yields 


Vfc  -^  ^^Y  =  °  ' 


Li- 


which  is  once  again  an  uncoupled   system  of  scalar  equations, 
Since  the  upper  wall  is  straight  the  flow  tangency  condi- 
tion requires  that  v  =  0   along  it.   We  hence  have  one 
positive  eigenvalue  and  one  negative  eigenvalue.  Therefore, 
along  the  upper  channel  wall   we  stipulate  one  condition 
being  careful  not  to  fully  specify  V,,  V~  or  V^ . 


We  thus  have 


V  = 


V, 


V, 


V. 


V, 


^    -2 
c 


u 

-^  [v+  ^] 
/2      PC 

'  [-V+  -H-] 


/2 


Pc 


(=  t"^u) 


Since  the  lower  channel  wall  is  not  flat  we  must  perform  a 
local  totation  (and  translation)  of  coordinate  system. 
For  this  discussion,  define 
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a  =  tan-l(Jil) 
dx 

where  we  use  the  principal  value  (-tt/2  <^  a   <^  tt/2)  and  dy/dx 
is  the  slope  at  the  generic  point  (Xq^Yq)  along  the  lower 
wall.   We  have 


U^  +  A  Uj^  +  B  Uy  =  0. 
Invoke  the  transformation 

X  =  (X-Xq)  cos  a  +  (Y-Yq)  sin  ot 

Y  =  -(X-XQ)sin  ot  +  (Y-Yq)  cos  a. 

The  above  equation  becomes 

U^  +  A  U-  +  B  U-  =  0 
with 

A  =  cos  a  •  A  +  sin  ot  •  b 
B  =   -sin  a  •  A  +  cos  a  •  B  . 

The  relevant  equation   for   the  boundary  conditions 
along  the  lower  channel  wall  is  therefore 

U  +  B  U_  =  0  . 
^      Y 

Hence,  we  are  interested  in  diagonalizing  B.   Using  the 
formulae  of  Beam  and  Warming   with  k,  =  -sin  a   and 
k-  =  cos  ot  yields  (k,  =  k   ,  k2  =  k2) 

R~  BR  =  A  E  diag  [A  ,X  ,X  ,X  ] 
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with  A^  =  X  =  -  sin  a  •  u  +  cos  a  •  v,  A^  =  X  +  c, 
X.  =  X^  -  c  (note  that  ^i  ~  ^o  ~  ^°^^^^^  component  of 
the  flow)  and 


R  = 


-1 


cos  a 


sm  a 


cos 

a 

-sin 

a 

/2 

sin 

a 

/2 


c/2 

c/2 

-sin   a 

sin  a 

'    /2, 

"      /2 

cos   a 

-cos   a 

/2 

/2 

Pc 

Pc 

/2 

/2 

0 

-1 

2 

sin  a 

cos  0^ 
/2 

-cos  g 

/2 


Pc/2 
1 

Pc/2 


B  =  RA  R 


-1 


U   +  RA  R  -'■U_  =  0 
Y 

r'-'-U   +  A  r"-'-U   =  0 
Y 


Now  make  the  substitution 


Z  =  r"-"-  U 


while  freezing  the  elements  of  B  which  results  in  the  uncoupled 
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scalar  equations 

Z.  +  A  Z_  =  0  . 
Y 

We   thus  have   X   >  0  ,  ^4  <  0  which  implies  that  we  should 

specify  one  condition  along  the  lower  channel  wall  taking 

care  not  to  determine  Z,  ,  Z^  or  Z..    We  obtain 

12     4 


Z  = 


c 


cos  ot  •  u  +  sin  ct  •  v 


■sin  ^  .  u  +  cos  g  .  ^  ^ 


/2 

sin  g 
/2 


•  u  - 


/2 
cos  " 
/2 


V  + 


P  c  /2 


PC  /2  -• 


(=  r'-'-u) 


We  now  treat  the  boundary  conditions  along  the  inlet, 

outlet,  upper  wall,  and  lower  wall.  In  what  follows,  once 
~y(n+l)  ^  fp(n+l)  ^(n+l)  ^(n+1)  p(n+l)^T  ^^  determined 

we  find  U<"-^1)  =  [p(-^l)  m("+l)  n^^-^^^  e^^+^h'^  by  using 
the  appropriate  relationships. 


Inlet 

we  specify  P^^^^^  =  P„,   u^^^^^  =  u„,   v^^^^^  =  v„ 
while  discarding  the  equations  for  W,  ,  W_  ,  W_  .  We  allow 
W.  to  be  determined  by  the  differential  equation.  This 


produces 


p(n+l)  ^  -  +  p  -  (^^_  -) 


221 


Outlet 


We  specify  p        ?«  ^"'^  allow  W,  ,  W-  ,  W-  to  be 
determined  by  the  differential  equation.   This  produces 


u<^+i)  =  u  +  (p-p„)/p5 


(n+l) 

V       =  V 


Upper  Wall 

We  specify  v  =  0  in  lieu  of  the  relation  for  V.. 
V,  ,  Vj'    ^-3  ^^^   then  determined  by  the  differential  equa- 


tion.  This  produces 

p(n+l)    =    p    +    pv/c 


(n+l) 
u  =  u 


p(>^+l)   =  p  +  p5v 


Lower  Wall 

We  wish  to  have  the  normal  component  of  the  velocity 
vanish.   Hence  we  require 

-  sin  a  •  u  +  cos  a  •  v  =  0 

'    , .    V        ^y 

(I.e.   -  =  tan  a  =  ^  )  . 

We   replace   the  relation  for   Z^   with  this  requirement 
and  then  allow   Z,  ,  Z2  ,  Z^   to  be  determined  by  the 
differential  equation.   This  produces 
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^(n+1)      n    P  ,    • 

P  =   P  -  =  (-  sin  a  •  u  +  cos  a  •  v) 

(n+1)         2     -     . 

u  =   cos  a  •  u  +  sm  ct  •  cos  a  •  v 


V        =   s.in  ot  •  cos  ot  •  u  +  sin  a  •  v 


(n+1)      -        7    -    ,         ■ 
p       =   p  -  P  c  (-  sm  a  •  u  +  cos  a  •  v) 


Numerical  Results 

The  preceding  analysis  was  implemented  and  tested  on 
a  subsonic  problem  and  a  transonic  problem.  The  results  of 
the  calculations  are  displayed  in  Figures  III . 7 . 2-III . 7 . 3 . 
The  subsonic  results  reveal  the  anticipated  symmetry.  The 
transonic  results  produce   the  expected  asymmetry  together 
with  a  pressure  loss  upon  passing  through  the  shock  along 
the  lower  wall.   The  successful  treatment  of  upstream  and 
downstream  boundary  conditions   is  evident  in  both  cases. 

However,  it  should  be  noted  that  these  two  dimensional 
calculations  require  long  execution  times.  The  source  of 
this  difficulty  is  the  multitude  of  required  exponential 
function  evaluations.   Future  work  will  focus  on  replacing 
the  exponential  basis  functions  by  rational  functions 
with  the  aim  of  rectifying  this  situation. 
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Appendix  I:  Formal  Expansion   of  Exponential  Spline  Derivatives 

In  this  appendix  we  formally  derive  some  expansions 
for  the  derivatives  of  the  exponential  spline  at  a  node  in 
terms  of  the  derivatives  at  the  node  of  the  function  being 
approximated.   The  primary  tool  is  the  calculus  of  finite 
difference  operators  [14,39].   Consequently,  the  results  so 
obtained  are  not  rigorous   thus  requiring  supplementary 
proofs.   However,  this  technique   is  useful  for  suggesting 
candidates  for  such  relationships.  These  results  are  referred 
to  in  Sections  III. 3  and  III.  4. 

First  Derivative 

As  we  know,  the  exponential  spline  satisfies 
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at  interior  nodes.   This  may  be  rewritten  as 
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where  I  is  the  identity  operator.  If.  =  f(x.),  E   is  the 
forward  shift  operator,  E  f.  =  f(x._|^-,),  and  E   is  the 
backward  shift  operator,   E  f.  =  f(x._,). 
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Proceeding  symbolically,  we  have 
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Before  proceeding  further  we  require  some  power  series 
expansions  for  the  spline  coefficients: 


/•^        h  ri    7   2.2  ^      31    4,4  ^  ^,  6,6,, 
<^^    e  =  6  f^  -  60  P  ^    2T520r  ^  ^  +0(ph)] 


/••\   J    h  r-i    1   2.2  .   2    4,4  ,  _,  6.6., 
(ii)   d  =  j[l-j-^ph  +  2X5  P  h  +  0(p  h  )] 


(iii) 


d-e 


1  re  ^  1   2,  2 
h  [6  +  3^  p  h 


3-^pV  +  0(pV)] 


(iv) 


d+e 


h  f2  +  6   P  ^ 


^    p^h^  +  O(p^h^)] 


360 


237 


(vi)   ^i-^  =  Jj  [12  +  I  pV  -  -^  9^"   +  0(pV)] 
d  -  e    h 
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We  may  now  proceed  by  inserting  the  appropriate 
expansions  into  the  relation  between  tI  and  f..  This  yields 
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where  D  is  the  differentiation  operator,  Df .  =  f'(x.) 
In  the  above 
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4 
while   all  succeeding  terms  are  0(h).   That  is  for  uniform 

tension  and  mesh  width  the  spline  first  derivative  is  a 

fourth  order  accurate  approximation  to  the  first  derivative 

of  the  approximated  function  (at  the  nodes) . 


Second  Derivative 
As  we  know,  the  exponential  spline  satisfies 
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With  the  necessary  operators   being  defined   as  in 
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the  previous  section,  this  may  be  rewritten  as 
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^5  =  720  (^-^i-l^  -  437200  ^Pi^i-Pi-l^i-l^ 

^ITlfboo^pM^-pti^i-i)--- 


With  the  b's  as  defined  in  the  previous  section  we  have 

"         (  2      3      4      5        1 

"^i  ^  l^O'^^l^  "^  ^2^   ■*■  ^3        "*"  *^4^   "^  ^5°   "''  •■'  °°/ 

•jc2D^+  0^0^+  c^D  +  c^D  +...«>>•  f^ 
=  [(bQC2)D^  +  {h^c^+hQC^)D-^    +  (b2C2+b^C2+bQC^)  D   +  ...  «>]f^. 

For  p.h.  =  ph   Vi   we  have 

2 

t"  =  (f   )  .  +  [-^    (f   )  .  -  ^  (f     )  .]h^  +  0(   h'*)  . 
1     XX 'i    ^12    XX  1    12    xxxx  i' 

We  see  that  the  uniformity  conditions  do  not  yield  the 
increase  in  accuracy  encountered  in  our  analysis  of  first 
derivative  approximation. 

In  spite  of  this,  the  above  expansion  can  be  exploited 
in  the  following  fashion.   An  expansion  of  f  reveals 


f.^,-2f.+f.  ,  ,2       . 

^^ii i— i=i=  (f   ).  +   (f     )   h   ,^    4 

,2  XX  1       xxxx  1  12 

h 


Combining  this  with  our  previous  expansion   produces 

2 

=  2(f   )  .  +  ^P^^   (f   )  .  +  0(   h'*) 
XX  1     12      XX  1 

-(Ph)^   (f   ) 
12      ^^xx'i 


^      i+1    i   i-1 
i  ^2 

^  24l(£hlL  (f   )^  ^o(   h^ 
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TO  f..,-2f.+f.   ,  . 


24+ (ph)'    "         h 

i.e.  a  fourth  order  accurate  approximation.   Note 
that   for  the  cubic  spline   (p  =  0)   this  reduces  to 
the  arithmetic  mean. 

Recasting  the  spline  equations  as 


-,  f.^,-2f.+f.  , 

e_„    .2d„e"    ^   i-H   i   i-l 

h   i-l    h   i    h   i+1         .2 

n 


we  can  rewrite  the  above  as 

"^"^   "■        24+(ph)2   h   1-1       h   1    h   1+1 
Hence 

24+ (ph) 

^  12+ (ph)^  ,^      >     T-.,  _  12+ (ph)^  r  e  t"   4.  n^.  M 
12      (^xx^i  -   i  -  24^(ph)2  ^  h   i-1^  (1^  h 

_  24+(ph)^    n  ^  e  ,"     ^  o(   j^4j  ^ 
12+(ph)2    ^    h   ^-^1 

II 

However,  our  original  expansion  for  t.   ^ 

(f     )  .  =  12  [  12_Mph)^  (f   )  .  -  t"]  +  0(hS  . 
xxxx  1    ,2      12       XX  1     i' 

This  gives  us  the  added  bonus  of  a  second  order  accurate 
approximation  to  the  fourth  derivative 

)  .  .  12  |l2+lph0i  re  ,.;        2^  _  24+ (ph)^    , 
xxxx  1    j^2  [24+{ph)2  Lh   ^"1       h    i2+(ph)2    ^ 


e   " 
+  I  ^i+1 


+  O(h^)  . 
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Note  that  in  the  case  of  the  cubic  spline  (p  =  0,  e  =  h/6 , 
d  =  h/3)  this  reduces  to 

TV  T  -  2TV  +  x\< 

).  =  _izl 1 i±l  +  o(h2) 

xxxx  1,2  -  . 

i.e.  a  central  differencing  of  t"(x)  at  x  =  x.. 

The  uniform  mesh  expansions  lead  to  expressions  for 
third  derivative  approximations. 


"•  (xt)   =   £  [T''         -  TV  •  c] 
1        s   ^  1+1      1 


T"'  (X.  )    =   E  [-tV  ,+  TV   .  c] 
1         S      1-1     1 


(i)     I  [T-(x^)  +  x-(x:)]   =  ^  [^i+i-^i-ii 

2 
h     (-v)  2  '"         4 

=  fV'   +  Y2    (^i   -  P^i  ^  +  °(^^ 

(ii)    [X-(x]^)   -  T-(x^)]     =  I  [TV^^  -  2C-TV  +  T^_^] 

=  h[(f^^''^  -  p^f^)  +  o(h2)] 

T  "•  fv"*")  -  T  '"  fx") 
■       ^^-r ^   =  f^'-''^  -  p^f  .  +  0{h^) 

n  11 

=  f(iv)   .p2,;-  ^^(j^2) 


...  ^  1     _  1 


,■     ,            o  „    X.  (x!)  -  T"'  (x.  ) 
f|-v)  ^  p2,^  ^  _i ^_ 1_  ^  ^(^2) 

=  P'^I  ^  !  tTV^^  -  2C-XV  +  t;;_^]  +  o(h2) 


"  f  f^i+1  "^  ^P^  "  2c)xV  +  TV_^]  +  o(h^) 

So  that  we  have  yet  another  second  order  accurate  approxima- 
tion to  the  fourth  derivative. 
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Appendix   II;      Spline    Routines 


c  ••• 

c   •<•» 

C  •«•  OBIVER  FOR  PARAMETRIC  EXPOriENTIAL  SPLINE  PACKAGE: 

C  •••  B.  J.  rCCARTIH   10/60 

C  ** • 

c  ••» 

OIMLtlSION  XPI   l00  1,rP(  100),S(  100),BX(  100),BY(100),TAUOPX(  100). 
ITAUOPrl  100  1  ,PX(  100  I.Prc  100)  ,HXt  100  1,Hr(  100  1 
CALL  ERRSEr( 207,C56,-1  ,1  ,0) 
CALL  ERRGETI COS. C56. -1,1.0) 
CALL  TKINIT 
REAO<  IS. 10  )  HPl 
10  FORnAT(  ID 

URITE( 16,20)  NPl 
20  FORnATI  IX,  'HPl  :  '  ,13) 

WHITEl  16.30) 
JO  FORtlAT(  ■  XP  TP'  ) 

□0  60  I:l.MPl 
HEAO(  1S.<.0)  XP(  I).YP(  I) 
^0  FORMAT! 2E 15. 7) 

WRITE(  16.50)  XP(I),YP(II 
50  FORHATt 1X,2E15.7) 
60  COHTlrtUE 

REAOl 15.70)  XENOL.YENDL.XENOS.tENOB.EPS 
70  FORMATtSElS.?) 

WRITEC 16.80)  XENOL.YENOL.XENOR.YENOR.EPS 
QO  FORnAT( IX, 'XEMOL  =  ■,E15.7,'  YENOL  =  '.ElS.?,'  XENDH  s  •,E15.7, 
!■  TENOR  =  •,£15.7,'  EPS  =  '.E15.7) 
CALL  PAREXPIXP.YP.NPI , XEMOL . TENOL .XENOH , YENOR .EPS ,SiBX,BY , 
I TAUOPX , TAUOPY , PX , PY  , HX , H Y  ) 
RETURN 
END 
C  ••» 
c   *■>« 

C  »••  PAREXP:  B.  J.  nCCARTIN   10/80 
C  »*» 
c   ••• 

C  -•«  FUdCTIOH:  COriSTRUCTS  THE  PARAMETRIC  EXPONENTIAL  SPLINE 
C  ••»  INTERPOLANT  TO  A  SET  OF  POINTS  IN  THE  PLANE 

C  •»•  USING  SPECIFIED  DERIVATIVE  END  CONDITIONS 

C  •»»  NOTE:  ARC  LENGTH  IS  USED  AS  THE  PARAMETER 

C  ■<•« 

C  *••  REFERENCE:  8.  J.  MCCARTIN,  NUMERICAL  COMPUTATION  OF 

C  •••  EXPONENTIAL  SPLINES,  COURANT  MATHEMATICS 

C  •»»  AND  COMPUTING  LABORATORY,  OCTOBER  1980 

C  •* * 

C  •••  DESCRIPTION  OF  CALLING  ARGUMENTS: 

C  •••  XP  ;  ABSCISSAE 

C  •••  YP  :  ORDINATES 

C  •-•  NPl  -  MUriBER  OF  OROEREO  TRIPLETS  OF  DATA 

C  "«•  XEtlOL  -  LEFT  Ht-UO    DERIVATIVE  ENO  CONDITION  FOR  X(  S ) 

C  •••  rtllOL  =  LtFT  HAliO  DCRIVATIVE  END  CONDITION  FOR  Y(S) 

C  »'•  .-ErJOR  =  RXCIIT  H4f;0  OtPIVATlVE  E'iO  CONOITION  FOR  X(  S  ) 

C  •••  tENCR  =  RIGHT  H/.NO  DtRIVATIVE  ENO  CONDITION  FOR  Y(S) 

C  •*•  EPS  =  (OLtRANi.e  FOP  SIOPPING  CRITERIA  IN 
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APC  LENGTH  ITERATIOf) 
S       =  tfcC  LLH&TH 

BX      -    U'.'M^    HAt;3  SIDE  OF  SPLIME  E0U4TI0HS  FOB  X(S) 

Ot      -  PICMT  HAfD  SIDE  OF  SPLIt.'E  EQUMICnS  FOR  riS) 

TAuopx  -  tniurioM  cf  s?lime  CTJArioiis  for  x(S) 

TAUOPV    :    l;CHjriOII   CF    SPL1:.E  £r;UATlC  IS    FOR    »(S1 

PX  =    E/FOMLIII  lAL    SPLltie  TEi;-^IOr)    PARAMETERS    FOR    X(  S  ) 

p»  :  E--ro.';c;)riAL  splk;e  rtiisioii  paraiieters  for  yisi 

MX  -    LICLTA    S    FliR    X(  S  I 

H)  :    DELTA    S    fOR    ti5) 


.^ 


•-MZKCUXUit    PARE>,P(XP,»P.((P1  ,>.EN0L,TEtl0L,XEHDR,rEtlDR,EP5,S.BX,BT, 
ITtUDI'X.Ti'JDPy  ,PX,Pr  ,IIX,HY  I 

DIrt£(;2IC'l    XFI  1  l.riM  n,S(  1  I  .DX(  I  I  ,BYt  1  ),TAU0PX(  l  ),TAUDPY(  1  I. 
1Pa(  1  )  ,Pr(  I  l.MXl  1  I  ,HT(  1  1  .S(((  100  1 
c    «•* 

C    •••    CO.lPUTE    CHORD    LEIiGTH 
c    ••* 

S(  1  )  =  0. 

00  10  1=2, NPl 

10  S(  I  i=S(  i-i  )»sqRT(  (XP(  I  )-xp(  r-n  )«»2»(  yp(I)-yp(  i-i )  )»»2) 

15  CONTIHUE 
c  ••• 
C  •-•  FIT  X  VS.  ARC  LENGTH 

c  •*• 

CALL  EXP5PL(S,XP,>:EI;DL,XEH0R,NPI,6X,TAL«DPX,PX,HX,ALPHAX) 
c  ••» 

C  ••»  FIT  Y  VS.  ARC  LEKCTH 
c  »«• 

CALL  EXPSPL(S.YP,YE»!OL,YeNDR.NPl,BY,TAUDPY,PY,HY,ALPHAr) 
C  »•* 
C  ••»  PLOT  Y  VS.  X 

C  •«* 

CALL  PLTFIT(S>XP,YP,NPl,BX,BY,TAUOPX,TAUDPY,PX,PY,HX,HY, 
lALPHAX.ALPHAY 1 

C  •«» 

C  ••«  RECALCULATE  ARC  LENGTH 

C  ••)» 

CALL  ARCLEniS.NPl  ,BX ,6Y , TAUOPX . TAUOPY .PX.PY .HX.HY . ALPHAX, ALPHAY , 
ISH.XP, rPI 
c  *** 

C  ••*  DETERMINE  5IGNFICANCE  OF  RELATIVE  CHANGE  IN  ARC  LENGTH 

C  »•• 

00  30  1-2, NPl 

IF(  A6S(  (5N(I)-S(I))/(S(I)-S(I-n)1.6E.£PS)  GO  TO  31 

30  CONTINUE 
GO  TO  35 

31  00  32  1=2, NPl 

32  3(  I  J  =  SN(  I) 
GO  TO  15 

35  CONTINUE 

RETURN 

ENO 
C  ••• 
C  »*» 

C  ••»  ARCLEN:  B.  J.  MCCARTIN   10/80 
C  •*• 

C  •«« 

C    »••    FUNCTION:    APPROXIMATE    ARC    LENGTH    INTEGRAL    USING 

C    •••  CLiMPQUNO    SIMPSON'S    RULE 

C    •  »• 
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5HLIHE    EQUATIONS    FOH 
ECJATIOUS    FCR    XtSI 
ECUATIOnS   FOR    ris) 
TCr;SION    PARAMETERS    FOR 
PARAMETERS    FOR 


F    CALLXt:3    AkGU'EHTS: 
lilPUr    ARC    LEI  GT.H 

H'.jrCLR    OF    C^DERFO    TRIPLETS   OF    DATA 
RICHT    HA1:0    SIOE    OF    SPLIUP.    EQUATIONS    FOR    /MSI 
RICMT    HJIIO    SIOE    OF    5HLIHE    EQUATIONS    FOH    r(Sl 
OOLUTIOd    OF    'jPLlME 
SOLUTIOM   OF    CPLKIE 

ExrctJEtUIAL   tPLItJE    TCr;SION    PARAMETERS    FOR    X<S) 
E^POIEUIIAL    SPLIHE    TENSION    PARAMETERS    FOR    Y(5) 
OE'.TA    S    XI  S) 
DELTA    S    Fl:J    TI  S  I 
SC'.LIIIC    P'-HAflETLR    FOR    X(S1 
iCALirJG    PARAr.ETFR    FOR    f(SI 
OUTPUT    ARC    LttlGTH 
AS'-CISiiE 
GDOIMATES 


EUDROUTINE    ARCLErK  5 ,NP1 ,8X , BT .TAUOPX .TAUDPY .PX , PY ,HX ,HY , 
lALPHAX.ALPHAf.SM.XP.rP) 

OiriEt.SION   S(  I  ).&X(  I  ),Br(  1  I.TAUDPXI  l  1,TAU0PY(  I  1,PX(  I  ),PY(  u, 
lll<(  I  I.HYC  1  I.Sni  1  ),Fl  U  l,XP(  I  l.YPd  J 


c 

•  ••   OE 

SCRIPTION 

c 

s 

c 

NPl 

c 

BX 

c 

Bf 

c 

TAUOPX 

c 

TAUOPr 

c 

PX 

c 

PY 

c 

MX 

c 

Kr 

c 

ALPKAX 

c 

ALFHAY 

c 

5H 

c 

XP 

c 

YP 

c 

CALCULATE  ARC  LENGTH 

SN(  n=o. 

DO  10  K-2,»P1 
DS  =  S(K)-S(K-1) 
H:DS/10. 

DO  5  1=1,  n 

Sl:(L-l  l-H  -VSC*<-M~i 

CALL  E5EVAL(S.XP,NPl.BX, TAUOPX, PX.HX, SI iXl.OERIVX.ALPHAX) 
CALL  ESeVAL(S.>P,NPl,BY,TAUDPT,PY.Hy,Sl.Tl,DEBIVY,ALPHAY) 
5  F( D^SGRTIUERIVXt'ZiCERIVY^'Z) 
10  SM(K)-SN(K-l  )♦(  F(  I  )«4.*(F(  2  )  +  F(<»)*F(6)*F(a)*F(10)l 
1*2.«(F(  3)*F(  5)fF(7)»F(9)  l*F(  U  )  )»H/5. 
RETURN 
EMO 


J.  MCCARTIN   10/00 


PLOTS  THE  PARAMETRIC  EXPONENTIAL  SPLINE 

OF  CALLIN6  ARGUHENTS: 

-    ARC  LEKGTH 

=  ABSCISSAE 

=  OROINATES 

=  MUMSEH  OF  ORDERED  TRIPLETS  OF  DATA 


c 

•  «• 

C 

•  •• 

c 

»«* 

PLTFIT:    8. 

c 

llarft 

c 

•  *>> 

c 

•■1*4 

FUIKTION:    P1 

c 

**« 

c 

•  «# 

DESCRIPTION 

c 

»** 

S 

c 

fftfttt 

XP 

c 

tt»tt 

YP 

c 

**» 

MP  I 

c 

*«* 

BX 

c 

*  «♦ 

BY 

c 

•  *• 

TAUDPX 

c 

*■»« 

TAUDPY 

c 

«t  p*M 

PX 

c 

1*  »# 

PY 

c 

#4* 

MX 

c 

•  •  * 

HY 

c 

r«  IT 

AlPMAX 

c 

It  *  w 

ALPHAY 

c 

•  •• 

RIGHT  HAND  SIDE  OF 
RIGHT  HAIID  SIDE  OF 
SOLUTION  OF  SPLINE 
SOLUTION  OF 
EXPOUEMTIAL 
EXPOtiENTIAL 
DELTA  S  FOH 
DELTA  S  FOR 
SCALK.'G 
SCALItiG 


SPLINE 
SPLINE 
SPLINE 
X(3) 
Y(SI 
PARAMETER 
PA.^AMETER 


SPLINE  EQUATIONS  FOB  X(S) 
SPLINE  EQUATIONS  FOR  Y(3J 
EQUATIONS  FOB  X(SI 
EQUATIONS  FOR  Y(S) 
TENSION  PARAMETERS  FOR  X(S> 
TENSION  PARAMETERS  FOR  Y(5) 


FOR 
FOR 


XIS) 
Y(S) 
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'r'.YP.riFl.OX.DI  ,TAUOPX,TAUDPY,PX,PY  .HX.HT, 


■IC    £•  .  'XPOtl'  ,"EtlTI' 


SLBROUTK.E    PLTFIT(5 
lALFHJ/  .  M-FilAY  I 

oiriMSicM  0(  n.xpin.fPi  ii.cxi  1 1  ,cr(  n  .tauop:<(1  )  .TAUDPn  ii 

IPM  1  ).PT(  I  I.H>:(  1  ). rill  1  ),\PLTI  UOOO  l.lPLTI  11000  I, 

nr'jiRTi  2i,if;:li!;i  :  i.iPiirtiz  ),ipn;CR(  e  ).  title  (60)  • 

3XLEL15l.lLEL(5l,IPLIKCtC),Z(  Z  I 

PAIA    ,'<.LUL/5«'  '/ 

OATA    rLBL/'5«'  •/ 

DATA    ULit;K/'  '/ 

OMA    TITLE/-.*'  •  , 'PARA-  , 'METR'  , 

l-AL    S-  .  -PLIH-  ,  'E  '  .'.a-'  •/ 

Z(1I--DLA(IK 

Z(  Z  I^CLAUK 

irSTRTl 1 1=1 
IPS'.RTI  Z  )  =  HPl»l 

ipnuni  1  )=t;Hl 

ir:.ijnt  2)  =  (HPi-i  )»ioo«i 

IPLIKEI l)=-l 

iPLif'Ei :  >-'* 

IFSiMl  1  l-l 

ipjrni 2  )-o 

IPItlCRI  1  1  =  1 
IPlriCR(  2  1  =  1 
CO    10    1=1 ,NPl 
aPLTI  I)=XP(  I) 
YPLT(  I  )  =  rP(  I) 
10    CCtlTIIlUE 

m=mp:»i 
MP=npi-i 

00    20    K=l .NP 

t)S  =  5(K*l  )-SlKI 

H-OS/IOQ. 

00    25    L=1.100 

Sl  =  SiK  )♦(  L-l  1"H 

CALL    ESEVAL(S,XP,NPl,BX,TAU0PX.PX.HX,3l,XPLTIf1).0ERlVX.ALPHAX) 

CALL    £5EVALlS,rP,NPl.6r,TAU0PY,PY,HT.Sl,TPLHM),D£RIVY,ALPHAY) 

n=iui 

cOMrinut 

XPLTin)  =  XP(HPl  1 

rPLTin)  =  YPtNPi ) 
00  30  1=1, n 

COMTIHUE 

CALL  PLTEK(XPLT,YPLT,Z,NZ,IPSTRT.IPNUM,IPLINE, 


25 
20 


30 


1  IPS  rtl.IPINCR.  TITLE,  XLBL.YLBL.OUn) 
RETURN 
Cf.O 


C  ••* 
c  ••» 
c  ••» 
c   ••» 

c   ■*» 

c 
c 
c 

C 
C 

C 
C 

c 
c 


e/PSPL;  B.  J.  MCCARTIN   10/00 


FUNCTION:  CONSTRUCTS  THE  INTERPOLATORY  EXPONENTIAL  SPLINE 

TO  A  SET  OF  POINTS  IN  THE  PLANE  WITH  MONOTONICALLY 
INCREASING  ABSCISSAE  USING  SPECIFIED  DERIVATIVE 
END  CONDITIONS 

REFERENCE:  B.  J.  MCCARTIN.  NUMERICAL  COflPUTATION  OF 
EXPONENTIAL  SPLINES.  COURANT  MATHEMATICS 
AND  CCMPUriNG  LABOPAIOWT,  OCTOBER  19d0 
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c    »• 

■•   OESCBIPTIO 

c   •• 

•                X 

c   •• 

•               F 

c   •• 

•                  FPA 

c    •• 

•                 f  PB 

c    •• 

MPl 

c    •• 

»           a 

C    •" 

•                TAUOP 

c   •• 

H 

c    •• 

•                 II 

c    •• 

•                  ALf-HA 

c   • 


AUJCIStAE 

c:'OIi:ai£S 

leer  ha'id  oepivative  end  ccmoition 

DlZ'.tT   Uit.D    OtRIVATIVE    EdO   CCNOITION 
(.-jrPtP    CF    CPOEMLO    PAIRS   OF    DATA 
RICMI    MAfJ    SIDE    OF    SPLIHE    EG'JATIOtlS 
bOLUTIOM   Of    3PLIHE    Er,JATI0;:5 
E>IO.';EuriAL   SPLlr;E    TtH5ICH   PARAMETERS 
OtLFA    A 
iCALINS    PARAMETER 


SLT.SOUTIHE    EXPSPLIX.F.FPA.FPO.MPI  , B,  TAUOP.  P.H,  ALPHA) 

diii£HjIo;«  XI I  i,F(  1 1 .01  n  .tauop(  i  i.pt  i  i.hi  i ) 

OiriLKGIOll   E(  lOOI.OIAGI  lOQI.ILIMK  lOOI.ILIMUl  100)>Q(  I00).U(100I 
RCAL    LAMCAR 


»••    liliriALlZATION 


lOUT-l 

IPLOT^O 

C0nr)Tl:l./6. 

CCi;iTC  =  l./J. 

CO:rjTJ:-7./60. 

COllSft^Jl./CSEO. 

CGtlST5  =  -l./l5. 

C0r;3r6  =  2./Jl5. 

N^liPl-l 

£PS:l.E-<> 

OMEGA- 1. 

ETA=.07 

SIG.1A-100. 

ALPHA^l. 

ITf1AX=S 

SCALE:2./(X(NP1  )-X(  1)) 

IF(  lOUr.HE.OI    WRITE!  16,2)    ITMAX 

FOPIIATf/,  '    ITMAX    =    '  ,15) 

IFl lOUT.NE.O)    WRITE! 16,3)    EPS, OMEGA, ETA, SIGMA 


FORMAT!/. •    EPS   =    '.EIS.T.SX.'OMEGA   =    ' ,EI5.7,5X, 'ETA   =    •,£1S.7,SX, 
1    SIGMA   =    ' ,E15. 7) 
ICOUttTiQ 
DO  <♦   1  =  1, N 
H(  I/:X(  I»l  )-X(I) 
H(  I)-SCALE»H(I) 
DO   5    1  =  1. N 
P(Il-0. 

IFl lOUT.ME.O)   WRITE! 16,6) 
FOPMATI/,  •  I  H'  ) 

IFIIQUT.NE.O)    WRITEI16.7)    ! I .H! I ) , 1=1 ,N) 
FOHMATI 1X.I5,E15.7) 


•••   OtrillE   B'S 

*•• 

8!  1  )  =  !  Fl  2  )-F{  I  )  )/HI  1  )-FPA/SCALE 
IFIM.EQ.n   GO  TO   U 
DO    10    1  =  2, N 

10  Bl  II  =  IFI  I»l  l-F(lJ)/H!I)-(FIII-F(I-n)/HlI-n 

11  BINl'l  l  =  FPe/SCALE-(F(MPl  )-FIHn/H!NI 
IF(IDorME.O)    KRITE{16,ia) 

12  FOh'riAri /. '  I  a> ) 

IKIOUr.Hb.O)    W.^ITEI  16,13)    I  1 .81  I  ) .  1  =  1  ,NPI  ) 

13  F0K.;AI(  IX.IS.EIS.  71 
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c  »»• 

C    •<••   OtTtRnlNE   IWICH    IIITERVALS    SIICULO   BE    FIT   WITH 

C    ••»    LlriE    CEGtIErnS   tKO    U;iICH    IMTERVALS   SHOULD   BE 

C    •--    FIT    UIIH    EXfOriSIITIAL    SPLIHE3 

C    •••  K  =    HL'lCtR   OF    ExrOriENTIAL   SPLISE    INTERVALS 

C    •■■•  ILItlL(I)    =    LEFT    MAKO    EimPOIHT    OF    ITH    SPLIHE    INTERVAL 

C    •*•  ILIIIUfI)    :    SIGHT    HAtIO    EflOPOIUT    OF    ITH    SPLINE    INTERVAL 

C    ••• 

K-0 

IL^l 

i!*  C0'iTir;uE 

00   CO    I:IL,N 

rti;p=0(  ii»U(i*i ) 

IFlTEriP.EQ.O.  I    00    TO   20 

ILItlL(K)  =  I 

00    16    J^I.N 

TEMl'-6(  J  1»6(  J»l  1 

If  (TEtlP.NE.O.  t    GO   TO    15 

ILniJ(KI-J 

CO    TO    29 

15  IF( J.NE.NI    GO   TO    16 
ILir.UCK  l-N*l 

GO    TO    JO 

16  CONTINUE 
20  CONTINUE 

GO    TO    JO 
29    IL:J 

CO    TO    U 
JO    CON)  IN'JE 

IF( lUUT.NE.O)    WRITE(16.JI)   K 
Jl    FOnMAT(/,  •    K    =    '  .IJ) 

IF(K.EQ.O)    GO   TO   SV 

IFIIOUT.NE.O)    URITE(I6.32I 

32  FOPMAr(lX,'         I      ILIML    ILIMU') 

IFI lOUT.NE.O)    WRITE116.33)    ( I , ILIMLI I )  .ILIMU( I ).I  =  l .K I 

33  FURMATt IS. IS. IX, IS) 
C   »»• 

C  •••  SET  UP  SPLINE  EQUATIONS 
C  »«• 

J'*  Dinuo. 

ICQUNT=ICOUNT*l 

IF( lOur.NE.O)    URITEt 16.1000) 

IF(IOUT.NE.O)    W9ITE(  16,36)    ICOUNT 

36  F0RI1AT(  IX, 'ICOUNT    =    MS) 
IFI  lOUT.NE.O)    U'RITE(  16,37) 

37  FORNATl/. 'IP  H* ) 
IF(IOUT.NE.O)    URITE(  16.33)    (I  .P(  I )  ,H(I )  ,1  =  1  ,N) 

3a   FORMATC 1X,IS.£15.7,E15.7) 
00   '.0    1  =  1, N 
PI  =  P(  I) 
HI=H( I  ( 
PI1II-HI»HI 
PI2=PI«PI 

IF(PUII.GT.ETAI   GO   TO   39 
C   »»*   USE    POi:£R    SERIES   REPRESENTATION 
FI2HI2-PI2-  III»HI 
PIiiHI-i^PISHIC'PICHIC 
E(  I  1  =  1  1  .  .CO:IST3»PI:hI2»CONST<.»PI<.HI<.)»HI«CONST1 

oi  =  (  1 .  •co;;sT5'Pi:Hi2»coNST6«piHHm  )»hi«const2 

OIAGI  I  i:OIril»OI 
GO    10   hO 
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C    •»•    U-'.     Ill  I".:  COLIC    FOUCTIOdS 
3^   Qt:-.inl-  I      ill 

SI  ■  Sn.:ii  HUH  I 

CI-LO:  HI  Pim  I 

PIlil'-I-HI/JI 

tl  I  l-ILtiCiHl-PIBlSI  )/PIC 

Ul-i  PlJr'JI-lI-OlllJiHI  I/PI2 

OIAGi  1  )-Olni .01 
•.0    I'lMl    HI 

OIA-.WtiHl  ):UI 

EllM'l  i:0. 

IFI  t2jr  .HE  .0  I    V)WITE(  16, Hi  I 
ttl    ^■0^''•.•;r(/.  '  I  E'  I 

in  IOUT.HE.O  )    U'niTE(  16.^2  )    l  I.EU  ),I  =  l,Nl 
^2    Kj'^iiAK  IX.  I5.E15    71 

in  ICjr.ME.O  )    Wf'ITEl  16.H3) 

m  ^o:)nATt/, '  i  DUG'  I 

IM  ICUr.HE.O  )    UHITE(  16.'.-.!    (  I  ,OIAG(  I  ) ,  1  =  1  .NPl  ) 
<.<.   ^0!;tlATl  1X,I5.EIS.7> 
C    ••• 
C    ••-   ALTCB    SPLIHE   EQUATIOtlS 

c  ••• 

IF(B(  1  I.EQ.O.  )    Ell  )-0. 

IFril.LQ.  n    GO   TO   ".b 

00   <.S    1  =  2. N 

It-(8(  D.NE.O.  )    GO   TO   'tS 

tl I-l  ):0. 

El  I  1=0. 
«.5   LOnriNUE 
Ut    IFlCi  l:Pl  I.EQ.O.  1    E(N|:0. 

IFI  lUUT.NE.O)    MlXeilb.'tl) 
4;    KOPIIATI/.  •  I  E'  ) 

IFI  iUUT.ME.O  )    WKITE(16.'t6)    (  I .  E  (  I  I  .  1  =  1  ,N  ) 
".8    FOOIIAri  IX.I5,E15.  7) 
C    •.- 

C    ••*   SOLVE    SPLINE    E'-fUATIOnS    (SEE    AHLBERG,    NILSON   ANO    WALSH) 
Q    »  •» 

PK=OIACil  1  ) 
U(  I  I--EI  1  J/PK 
Ul  I  )-HI  1  )/PK 
00    -^^   KK;2,r<Pl 
►  K-E(KK-1  l»qiKK-l  )*OIAG<KK) 
QIKK  ):-£(KK)/FK 
<»9   UIKK  l^l  El  KKl-E(KK-l  l»U(KK-l  )  )/PK 
lAUDPi  tlf'l  l^UCHPl  1 
DO    01     L=l ,N 
hK;i:P:  -L 

51  TAUOPIKK  I^QIKK  )»TAU0P(KK«1  )  ♦U<  KK  1 
IFI lOUT.ME.Ol    WBITE(16,S2) 

52  FUPMATi/,  •  I  TAUOP  B'  ) 

IFI  lOUr.NE.O  I    WHITEI16,51)    ( I . TAUOP( I ) ,81  I ) . 1= I .NPi J 
5J   FUDMAH 1X,I5.E15.7,E15.7) 
C   ••• 

C    •••    HLOr    EXPONENTIAL   SPLINE 
C   ••»■ 

S-.    IFI  IPLOT.NE.O)    CALL    ESPLOT(  X ,  F  .NPl  .B.TAUOP .  P.H  .ALPHA  ) 

IFIK    EQ.O  I    GO    TO   99 

IFI  ICCUHf  .GE.ITriAX)    GO    TO    2000 
C    ••• 

C    •"*   UPDATE    P'S 
C    ••• 

IFlAG-0 

00    00    1=1 .K 

IL^ILIIILI  I  I 

iu  =  inr:ui  1 1 

TEMP-r/UUPI  IL)»3(  ILI 
IFI  lEtlP.GE.O.  )    GO    TO   ft 
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C    »••    O-liL'ClxO    AT    Lr.f-r    ir.MO    CHOfOINT 

[^''riwLn.-.XUADSCBdLn.DIAGdLI.ABSlTAUDPdDlI/ABSlTAUOPdL.l)) 

PriLnA;l./SSRT(  L.-'X---R-H(  ILl  I 
PI  ILOA  =  AMAXl(PTILO*,.PdLM 
PdL  i  =  PdLI'OIi£GA-(P1IL0A-PI  ILll 
t't    UPl-IL»l 

IUi:l-IU-l  .... 

II  (  lUlli    LT.ILPl  t    CO    TO    70 
Ua   t9    J=ILPl .lUMl 
IF(  ^^L'G^l  J  I  .fi£.0.  I    CO    TO    bb 
C    •••    TiUCf'-O    AT    All    lurtRlOR    POIUT 

IFLAJ-1  --, 

PI  j-n  =  P(  j-1  itEPS 

PI  J  |:Pl  J  UEP5  .        ; 

GO   ro  08  ,. 

66    TE1-.H-TAUCP(  JI»B(  Jl 

tK(  rC(IP.GT.O.  )    GO   TO   68  .        • 

C    •••    li.rAUOP<0    AT    AM    KITfcHIOH    POIUT 
IFLAG^l 

L;.ll-:AK  =  At1AXU  ABSI8(  J  I  l.OIAGI  J  )«ABS(  TAUOP(  J  )  )  ) 
l/l  C. 'AMAXU  A85(  TAUnP(  J-l  )  1  ,A05(TAU0P(  J»n  )  )  ) 
criLDA^l./SCRTI  LAIieAR»H(  J-1  )  ) 
PriL0A-Ai1AXl(PTILt)A,P(  J-1  )  I 

PI  J-l  )  =  P(  J-lWi:rIEGA»(  PTILBA-Pt  J-1  )  )  •  - 

PTILOA-l  ./SQRTC  LAn£.-R«HI  J  I  I 
PriLDA:At1A.<l(  PTILOA.P(  J  n 
PI  J  l-Pl  J  )«OII£GA»(  PTILDA-P(  J)  ) 

66  cunriiiue 

70    rEtlP  =  TAUOPdU)«BdU) 

IFl TEnP.GE.O. 1    CO    TO   80 
C    ••»   B«IAUOP<0    AT   RIGHT   HAND    ENDPOINT 
IFLAG-1 

LA(1bAH-AMAXl(ABS(B(  lUn.DIAGl  lU  )»ABS(  TAUDP(  lU)  1  )/ABS(  TAUDP(  lUMl  11 
PTILOA-l. /5QRTI LAMBAR«H(  lUMl ) ) 
PTILOAiAhAXllPTILOA.PI lUMl ) I 
P(  lUril  I^PdUMl  l»unEGA«(  PTILDA-P(  lUMl )  I 

cuniinuE 

CHECK  FOR  EXTRAhEOUS  INFLECTION  POINTS 
IFl IFLAG.EQ.O)  60  TO  99 
•••  SCALE  ABSCISSAE 

XltU^O.  I 

DO    <>1    I:l,N 
93    AMU-AI1AXl(xnU,Pd  l*Hd)  ) 

*LPHAC  =  AI1AX1  (  XMU/SIGMA  ,  1 .  ) 

ALPHA:ALPHA«ALPHAC 

00    9'«    I^l  .M 

Ml  I  )-lld  l/ALPHAC 
9'»    B(  I  l^Od  l«ALPHAC 

ei  UPl  1-01  UPl  MALPHAC 

IFl  lOur.liE.Ol    WaiEl  16,95)    XMU.ALPHACALPHA 

95  FO'-'MATI/, 'aIIU    :    •  ,E15.7,5X, 'ALPHAC    =    '  ,E1S.  7,5X,  •  ALPHA    =    ",£15.71 
IFdOur.llE.O  )    URITEd6,96) 

96  FO'ltATI/,  -I  H  B'  )  .  .    - 
IFdUUr.UE.OI    ur?ITEI  16,97)    d.Hd).B(I),I-l,Nl 

97  FCr-IUTI  lX,I5,:Ei5.  71  .  . 
IFdUUr.llE.O)    I'PITEI  16,98)    NPl,E(NPll 

96    FC^iT-Ti  1X.I5,15X.E15.  7) 
r,.1    10    ")'. 


c 

•  ■  » 

c 

*»• 

c 

•  •• 

C 

*** 

C 

!»«• 

C 

•  •• 
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.c  ••• 

C  *»•  1.0  EXTRANEOUS  IMHECTION  POIMTS 
C  ••• 

99  IHI  IC'JT.UE.O)  UPITC(  16,10001 

IF(  IOUr.HE.01  WR1TE( 16.1001  ICCUMT 

103  f ORtlAT(  •  HO  EXTRANEOUS  INFLECTION  POINTS:  ICOUNT  =  '.IJl 

1000  FcrjriAr(///,  • ■•      , 

GO    TO    1000  ' 

c   ••» 

C    ..*   MAXIriUtI  NUMBER   OF    ITERATIONS    EXCEEDED 
C    ••  • 

2000    in lOUT.NE.Ol    UHITE(  16  .  1000  1 

IKICUT.NE.Ol    1:PITEI  16,C001  I 
cool    FORMir(  •    NAXIMIJ.I   NUIIBER    OF    ITERATIONS    EXCEEDED') 
3300   RETURN 

EflO 

c  ••• 
c  •-• 

C  •««  ESPLOT:  B.  J.  MCCARTIN   10/80 

C  ».«* 

c  ••• 

C  .«»  FUNCTION:  PLOTS  THE  EXPONENTIAL  SPLINE 

C  "w* 

C  •—  DESCRIPTION  OF  CALLING  ARGUMENTS: 

C  •••  X  =  ABSCISSAE 

C  »••  F  =  OROIMATES 

^    ""•  UPl  =  NUriOER  OF  ORDERED  PAIRS  OF  DATA 

^  ""*  8  =  RIGHT  HAND  SIDE  OF  SPLINE  EQUATIONS 

C  «••  TAUDP  =  SOLUTION  OF  SPLINE  EQUATIONS 

C  —•  P  =  EXPONENTIAL  SPLINE  TENSION  PARAnETERS 

C  ""•  H  =  DELTA  X 

C  •»*      ALPHA   =  SCALING  PARAMETER 

C   •••• 

SU8P0UTINE   ESPLOT(X.F,NPl, 8. TAUDP. P.H. ALPHA) 
DIMENSION   Xin.F(  ll.BCn.TAUOPin.PdI.Hdl 

np7MC»fp'J  ^^;i''°''f';"' 100001.^.2). IPNUM(2).IPLINE(2».IPSYm2). 
1 IPIHCRI  2  1 ,  ITITLEI  60  1  ,XLBL(  5  1 .  YLBL(S  I  .IPSTRTJ  2) 

DATA   tJLANK/"  •/ 

DATA   XL6L/5<»"  '/ 

DATA  TLaL/S*'     V 
^  ^^^  DATA  ITITLE/5.'     ' . 'EXPO' . 'NENf . "lAL  ' , 'SPLX' . 'NE   '.SO*'     •/ 

C  •••  INITIALIZATION 
C  ■*• 

iour:o 

N^NPl-l 

00  I  ri=i.2 

1   Z(nU8LA>W 

scALE=2./rxtNpn-xii)i 

c  ••■ 

C    '••    SET  UP   ARHATS 

C   ••• 

K-0 

IF( lOUT.NE.Ol   WRITEI 16,381 
38   FO-mAT./.lx,-  K  XBAR  TAUBAR  TAUBP- ) 

DX^ALHIA-HC  11/99. 
DXrOX/SCALE 
/.:<  =  Ai  I  I -OX 
OO   <,0    j:l  ,100 
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39 
<*5 


50 


C    »•« 
c   **• 

c   ••» 


c 

«*• 

c 

>*4 

c 

•  •>• 

c 

»*# 

c 

»•* 

c 

«•# 

c 

*>•« 

c 

ttnil 

c 

f*»# 

c 

*tt« 

c 

*»• 

c 

tf  #* 

c 

•  ■• 

c 

!*«• 

c 

•  >« 

c 

•  ** 

c 

«»» 

c 

«*• 

c 

»>* 

c 

•  •• 

XP(KI=XX»OX 

IF(XI'IK).LT.X(  I  I  1    X?(K)  =  X(  I) 

IF(:<P(KI.GT.X(IH))    XP(K):X(I»n 

NX-XP(K  ) 

CAIL    CSEVALCX.F.tiPl  ,B.TiUOP.P.H,XPlK),FP(K).TAUBP,ALPHAl 

IFl  IOUr.NE.01    I.SITE(  loi  J9I    K  .XP(  K  1  ,FP(  K  1  .TAUBP 

FC3I1AT(  IX,I5,3E1S.7) 

CGHTIIJiJE 

COMFIriue 

00    GU    I:1,I1P1 

XP(  J)  =  X(  I) 
FP(  J):F(  II 
IIZ-Z 

IPilMK  I  1  =  1 
USTRK  2  |;K»l 
IPKU.K  I  >=K 
IPI  'JtKi  ):nPl 
If'LIt;E(  I  l-<* 
IPLn:E(2)  =  -l 

iFSvni 1 1=0 
iPSiniC)  =  i 

IPIMCRl 1 1=1 
IPIfiCH(2):l 

PLor 

CALL  PLTEK(XP,FP,Z.NZ,IPSTRT,IPHUM,IPLINE,IPSYM,IPINCR,ITITLE. 
IXLSL.YLBL.OUM) 
RtruRH 
EMO 


ESeVAL:  B.  J.  MCCARTIN   10/80 


FUNCTION:  EVALUATES  THE  EXPONENTIAL  SPLINE 


DESCRIPTION  OF  CALLING  ARGUMENTS: 


X 

F 

NPl 

8 

TAUDP 

P 

H 

XBAH 

TAUBAR 

TAU8P 

ALPHA 


ABSCISSAE 

0RDINATE3 

NUtlElER  OF  OROEREO  PAIRS  OF  DATA 

RIGHT  HANO  SIDE  OF  SPLINE  EQUATIONS 

SOLUTION  OF  SPLINE  EQUATIONS 

EXPONENTIAL  SPLINE  TENSION  PARAMETERS 

DELTA  X 

ABSCISSA  OF  EVALUATION 

ORDINATE  OF  EVALUATION 

DERIVATIVE  OF  EVALUATION 

SCALING  PARAMETER 


SUE90UTINE  ESEVALl X.F. NPl, B.TAUOP.P.H.XBAR, TAUBAR, TAUBP. ALPHA  I 
DIMENSIOr<  XI  n,F(  n,B(  1  l,TAUDP(  1  ),P(1  ),H(  1) 

c  *•* 

C    ••»    INITIALIZATION 
C   •»- 

CONST  1  =  I. /6. 

C0N5T2=l./3. 

C0MSTJ--7./60. 

CO:;ST^:Sl./25C0. 

CClliT5:-l./15. 
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co!:jro-2./i;5. 

COt.2r7  =  -7./l-55. 

cc:!sre=-.05 

cct:sr^:i./i:o. 

r)-nPi-i 

eta:. 07 

SCALE:2./(X(HP1  )-XI  1  )) 

c 

»•• 

c 

<•• 

OETEnniriE  ihterval 

c 

*•• 

00  10  J=1,N 

IH XBAR.lt. X(J»l)l  GO 

10 

coNiinuE 

c 

•  #• 

c 

#»• 

detehmihe  type  of  fit 

c 

4rR  * 

11 

rEr;p=i;i  I  )»3(  l*l  i 

TO    U 


IK  TErtP.NE.O.  1    GO   TO    20 
C    ••»    FIT    WITH    LINEAR    FUNCTION 

TAU3AR:(F(  ICIXl  1*1  )-X8AB)*F(I*l)»(XBAR-X(I)))/(H(I)i»ALPHA) 

TAUEAR:SCALE>*TAUBAR 

TAU0P  =  (F(I»1  1-F(in/(H(I)»ALPHAI 

TAUeP=SCALE«TAUBP 

GO  TO  30 
C  »««  FIT  WITH  EXPODENTIAL  SPLINE 
20  Xl:SCALE*(X(I*l  )-XOAR)/ALPHA 

X2:5CALE»(  >.BAR-X(  I  )  )/ALPHA 

PI2:P(  I)<P(  I  ) 

PIHI  =  P(  I  l»H(  I) 

IFIPIHI.Cr.ETA)    GO   TO    25 
C    »»»   USE    POWER   SEfflES   REPRESENTATION 

pi:hi2:piiii»pihi 

Pl'tHl'*-PlZHlZ»PlZHl2 

X12=XI-X1 

X22=a2»X2 

XlH-Xl2»X12 

XC'«:X22»X22 

0I1CHI2  =  1./(H(  Il»H(in 

TCRMl^l .  ♦C0(IST3»PI2HI2«C0N5T<t»PI<«HI<* 

Tt«riC:COMSTl«PI2-OneHI2»C0NST7»PI2«PI2HI2 

TERtn  =  IC0H3r8»CNBHI2tC0KST9»PICI»PI2 

TAUeAR:(  Fl  I l»Xl«F( I»l )»X2 )/H( I )-COMSTl»H( I  )• 
llXl»rAUOP(  I  )•(  TtHI1l*TERn2»Xl2»TERI13»Xl'il» 
2X2«TAU0P(  1*1  l»(  TE«Ml»TERMC»X22*TERrl3»X2*l  I 

TAUBP^I  F(  Itl  l-FI  I  J  l/tl(  I  )-COHSTl»H(  I  )• 
l( TAUOP( I»l  1»( TERni*3.«TtRM2«X22*5.»TERM3»X24)- 
2rAU0P(  !)•(  TERMlt3.«TEHM2»X12»5.»TERM3»Xl<»)) 

TAUbP:SCALE«TAUBP/ALPHA 
GO    10    30 
C   •••   U5E    HIPERBOLIC    FUNCTIONS 
25    0CN0n=PI2»SIH11(P(  I  )-H(I)  I 

rALe*R:(TAUOPl  I)«SItimP(  I)»X1  )»TAU0P(I*n»SINH«PlI)«iX2)l/0ENOM 
1»(  IF(  Il-TALDP(I)/PI2).Xl»(F(I*l  »-TAUDP(  I*n/PI2  )»X2  )/H(  I ) 

rAUbP=(  TAL'OPI  Itl  )«CCSH(P(  I  )»X2  ) -TAUOP(  1  )»COSH(  P(  I  )«X1  )  )«P(I)/0ENOM 
l.(F(I»n-F(I)t(  TAUDPI  II-TAU3P(  !♦!  )  )/PI2)/H(I) 
rALDP^CCALE'TAUeP/ALFIIA 

30  ccuriuuE 
Ptru:;n 
Et;o 
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c  ••• 

C  •«» 

c   ••• 

c   ••• 


DRIVER  F03  PERIODIC  PAHAHETRIC  EXPOdENTIAL  SPLINE  PACKAGE: 
6.  J.  MCCARTIM   10/80 


10 
20 
30 

'tO 

50 

60 

70 
SO 


OIMEMSION  XP(  lOOl.YPI  100),S(  100).BX(  100).BY(  100>,TAUOPX( 1001, 
ITAUOPTC  100),PX(100l,Pr(100).HX(100I.HY(100) 
CALL  ERRSETC C07,J56.-1 ■ I .0) 
CALL  ERRSETI^oa,CS6,-l .1 .0) 
CALL  TKINIT 
HEAD! 15,10  1  HPl 
FORMATdJ) 
WRITE!  16.20)  NPl 
FCRHATC IX. 'HPl  =  * ,I3> 
URITEt 16,30) 

fORllATC  ■         XP  YP*  ) 

00  60  1=1 .KPl 
RtAO(  IS.itO)  XP(I).YP(  I) 
F0-lf1AT(  2E15.7) 
w;aTE<  16.501  XP(I),YP1I) 
FOHMAK 1X,:E15.7) 
CONTIIIUE 
READ( 15.70)  EPS 
(•OnriAT(E15.7) 
WRITE! 16.80)  EPS 
FOWHATi  IX. 'EPS  =  • ,E15.7) 
CALL  PEREXP(XP,rP,NPl.EPS,3.BX.BY,TAU0PX,TAU0PY,PX,Py,HX,HY) 
RETUHtl 
EI40 


PEREXP:  B.  J.  HCCAHTIN   10/60 


FUNCTION:  CONSTRUCTS  THE  PARAMETRIC  EXPONENTIAL  SPLINE 
INTERPOLANT  TO  A  SET  OF  POINTS  IN  THE  PLANE 
USING  PERIODIC  IIIO   CONDITIONS 
NOTE;  ABC  LENGTH  IS  USED  A3  THE  PAHAMETEB 


•  ••  REFERENCE  I  B.  J.  HCCAHTIN.  NUMERICAL  COMPUTATION  OF 
•••  EXPONENTIAL  SPLINES,  COURANT  MATHEMATICS 

AND  COMPUTING  LABOR ATORY,  OCTOBER  1980 


«!•» 

«•*  DESCRIPTION  OF  CALLING  ARGUMENTS: 

•••  XP      c  ABSCISSAE 

■«•  YP      =  OROINATES 

#4i>  NPl     I  NUCBER  OF  ORDERED  TRIPLETS  OF  DATA 

••"•  EPS     •    TOLERANCE  FOR  STOPPING  CRITERIA  IN 

•••  ARC  LENGTH  ITERATION 

«»•  S       -    ARC  LENGTH 

•••  BX      =  RIGHT  HAHO  SIDE  OF  SPLINE  EQUATIONS  FOR  X< 3 ) 

»••  Br      s  RIGHT  HAND  SIDE  OF  SPLINE  EQUATIONS  FOR  Y(S) 

••»  TAUOPX  =  SOLUTION  OF  SPLINE  EQUATIONS  FOR  X(5) 

••»  TAUOPY  =  SOLUTION  OF  SPLINE  EQUATIONS  FOR  Y(S) 

•••  PX      =  EXPONENTIAL  SPLINE  TENSION  PARAMETERS  FOR  XtS) 

•••  PY      :  EXPONENTIAL  SPLINE  TENSION  PARAMETERS  FOR  Y<S) 

•  -•  HX      -  UELTA  S  FOR  a(  3) 

•-•  HY      =  DELTA  S  FOR  r(  S» 
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5U3»0(JTIHE    Pt9t,aM  >,P,YP,HPl  .CFS.S.eX.er  .TAUOPX.T.'.UDPY.PX.PY.HX.Hf  ) 

oirXKGian  :<P(  1  i.ti'i  1  ),s(  n.Ovi  1 1  ,Bt(  1  i.taujpxi  i  i.iauopx  1 1, 
IPxi  1  i,Pr(  1  i,HX(  1  I  ,)ir(  1  i.s.'ii  100  1 
c  .»■• 
C    ••«•   CO.IP'JTE    CHORD    LtdGlH 

c  ..• 

S(  1  1  =  0. 

00    10    1-2. NPI 
10    S(  I  1-Sl  I-l  HSORTt  (XP<  I)-XP(  I-l  )  I»»2KYP(I1-YP(  I-nii»"2« 
15   CCHtriMUE 
C    •'* 

C    •••    FIT    X   VS.    ARC    LEHGTH 
C    »-- 

CALL    EXP^PL(S,XP,IIP1,BX,TAU0PX.PX.IIX,ALPHAX) 
C     k  -* 

C  •«*  FIT  Y  VS.  ARC  LEHGIH 
C  •'• 

CALL  £XP5PL(S.YP,NPl,Bt.TAU0PY,PY,HY,ALPHAY) 
C  m»  * 

C  •-•  PLOT  Y  VS.  X 
C  -•* 

CALL    PLTFIT(S,XP,YP,MPl,BX.BY,TAUOPX.TAUOPY,PX,PY,HX,HYi 
lALI'HAX.ALPHAY  ) 
C    ••■• 

C  ••*  RECALCULATE  ARC  LENGTH 
C  -•« 

CALL  ARCLENIS.NPl,&X,BY.TAUOPX,TAU0PY,PX,PYrHX,HY>ALPHAX,ALPHAYi 
ISN.XP.rPt 
C  ••< • 

C  •-«  OETERMIHE  SIGMFICAUCE  OF  RELATIVE  CHANGE  IN  ARC  LENGTH 
C  ••» 

00  30  1=2, UPl 

If  (A6S(  (SNlI»-S(in/(S(I)-S<I-n)I.GE.EPS)  60  TO  91 

30  CONTIHUE 
GO   TO    35 

31  00    32    1=2, NPl 

32  S(  I t-ZHi  II 
GO    TO    15 

35  CONTir.UE 
RETURN 
ENO 
C  ••« 
C  ••« 

C  •••  ARCLEN:  B.  J.  MCCARTIN   10/80 
C  ••• 
C  *•• 

C  •••  FUNCTION:  APPROXIMATE  ARC  LENGTH  INTEGRAL  USING 
C  •--  COMPOUND  SIMPSON'S  RULE 

C  *>• 

C  •••  DESCRIPTION  OF  CALLING  ARGUMENTS: 
C  ••*       S       =  INPUT  ARC  LENGTH 

C  •-"       NPl     =  NUM3ER  OF  OBOEREO  TRIPLETS  OF  DATA 
C  •»•       OX      =  RIGHT  HAtiO  SIDE  OF  SPLINE  EQUATIONS  FOR  X(S) 
C  •••       BY      =  RIGMT  HAND  SIDE  OF  SPLINE  EQUATIONS  FOR  Y(3> 
C  •••       TAUOPX  =  SOLUTION  OF  SPLINE  EQUATIONS  FOR  X(SI 
C  •••       TAUOPY  =  SOLUTION  OF  SPLINE  EQUATIONS  FOR  Y(S) 
C  •••       PX      =  EXFCIIEHTIAL  SPLINE  TENSION  PARAMETERS  FOR  X(S) 
C  *••       PY      :  t>;F:nENriAL  SPLINE  TENSION  PARAMETERS  FOR  Y(S) 
C  •»*       HX      =  DELTA  5  XI S I 
C  ""•       HY      =  UELl  A  S  FOS  Y(  S) 
C  "•       AlPMAX  =  SCAlII.G  PARAMETER  FOR  X(S) 
C  ••*       ALFHAr  =  SCalII.'J  PlRAI.ETEH  FOR  *(S) 
C  ••-       ZU  =  OUTPUT  ARC  LEK'Orn 

C  •'•      aP     =  adjcissae 
C  •-*        iP      I  OrjI.IATtS 

c  •-. 
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SUu'^OUriHE    ARCLCMIC.HCl.ex.Bir.TAUDPX.TAUnPt.PX.Pr.HX.HY. 
1 AL  PHi  A,  ALPHA  t  ,sm,;:p,^P) 
OltiidJIOII    SI  I  l.bXI  1  )  .Q1(  1  l,TAUOPX(  I  I  ,TAUOPY(  1  )  ,  PXI  1  )  ,  Pr  (  1) , 

1HX(  1 1 ,1111 1  ).5rj(  n  .F(  11 )  .xP(  1  i>»P(  u 

» 

CALCULATE    tSC    LENOrH 


5 

10 


SHI  1  ) 
OU    10 

OS-S(K 
H  =  OS.  I 
00  5  L 
Sl:(  L- 
CALL  E 
CALL  E 
F(  L)-S 
CM(K  ): 
It^.-CF 
ftETUr^N 
EtII) 


0. 

)-stK-n 

0. 

=  1,11 

1  i-nvxiv^-v^ 

SEVALCS.XP.IIPl  ,BX,TAU0PX,PX,HX,SI.X1  ,DERIVX,  ALPHAX  ) 
SEVALI  S.  fP.NPl  ,BT  ,TAL'OPr  .PY.HY  .SI  ,n  .DERIVT.ALPHAY  I 
f",;)TtOERIVX*«:tDERIVV«"C  1 

'j;i(K-l)»(F(l)»^.-(F(2)«F(<il»F(6)«F(ai*F(10)) 
(3>*F(5)«F(7)tF(9)J«F(n  ))«H/3. 


■  •4 

mtt* 


PLTFIT:  B.  J.  HCCARTIN   9/60 


•  «»  FUIICTIOM:  PLOTS  THE  PABAttETHIC  EXPONENTIAL  SPLINC 


DESCRIPTION  OF  CALLING  ARGUMENTS: 


S 

XP 
tP 
NPl 

BX 

BY 

TAUOPX 

TAUOPY 

PX 

PY 

HX 

HY 

ALPHAX 

ALPHAY 


ARC  LENGTH 

ABSCISSAE 

Of.'0IHATES 

NUt;3ER  OF  OROEREO  TRIPLETS  OF  DATA 

RIGHT  HAtro  SIDE  OF  SPLINE  EQUATIONS  FOP 

SPLINE  EQUATIONS  FOB 

EQUATIONS  FOR  X(5) 

EQUATIONS  FOR  Y(3) 

TENSION  PARAMETERS 

TENSION  PARAHETERS 


RIGHT  HAr;0  SIDE  OF 
SOLUTION  OF  SPLINE 
SOLUTION  OF 
EXPONENTIAL 
EXPONENTIAL 
DELTA  5  FOR 
DELTA  3  tOR 


XtS) 
Y(S) 


SPLINE 

SPLIfJE 

SPLINE 

X(S) 

Y(S)  • 

SCALING  PARAMETER  FOR  XC 3 1 
SCALING  PARAMETER  FOR  Y(3) 


FOR 
FOR 


XIS) 
Y(S) 


/ 

/ 

• 

•PARA' , 

, 'METR 

• 

,^8»' 

•/ 

■IC  E'.'XPON'.'ENTI', 


SUBROUTINE  PLTFIT(S.XP,YP. NPl, BX, BY, TAUOPX, TAUOPY, PX.PT.HX.HY, 
lALPHAX. ALPHAY ) 

DIMENSION  S(  1  ),XP(  H.YPf  1  l,BX(  1  ),8Y(  1  ) ,  TAUOPXl  D.TAUOPYl  1), 
1PX(  1  >,PY(  1  ),HX(  U,HY(  1  ),XPLT(  UOOO  l,YPLT(  llOOOlt 
2IPSTHT(  2 1 , IPNUM(  2 ) , IPSYM( 2 ) .IPINCRI 2  ), TITLE! 60  ) . 
SXLBL(5I,YLBL(5),IPHNE(2),ZI2) 

DATA  XLBL/5*' 

DATA  YLBL/5*' 

DATA  BLANK/' 

DATA  TITLE/<»»' 
I'AL  S' ,  PLIN*, 

Z(  1  I^BLANK 

Z( 2 )=BLANK 

N2  =  2 

IPSTHTI  1  1  =  1 

IPSTRTI 2 ):NP1»1 

IPt.'lJMI  I  )  =  NP1 

I(t;u:il  2  |-(HPI-1  )»100»1 

IPLIHEl 1 |:-l 

IPLINEI  2  )-<* 

IPSttK  1  1  =  1 

IPSNll  2  t  =  0 

IPIKCR(  1  1-1 

i;'if;c7(2  1  =  1 
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00  10   l-l.riPi 
xPLr(  I  i:^^i  1 1 

Ir>Lri  I  l^ll'l   II 

10  couriraie 
r;r-hPi  -i 

00  ZO    K-  I  .liP 

OS:SIK»i  )-5IK  ) 

H=OS/100. 

00  ;5  L-l .100 

Sl^SIK.  U(  L-l  l"H 

CALL  tSEV»Ll S.XP.MPl , OX , TAUOPX , PX ,HX . SI ,XPLT(MI  .OEBIVX, ALPHAX I 

CALL  ESEvALlS.lP.MPl .BY , T AUDPY . PY . HY , SI . rPLTlM) .OERIVY . ALPHAY ) 

CO  courinuE 

XPLTIMIiXlMNPl  I 
YPLTlMUUPt  U.'l  ) 
DO    iO    I-l .M 
30    CoiniNUE 

CALL    PLTcK(XPLT,YPLT,Z,MZ,IPSTRT,IPNUH.IPLINE, 
llPjrrl.  IPIIICR.TITLE.XLBL,  YLBL.DUMl 
HCrURII 
EUO 


exPSPL; 


J.  MCCAHTIN   10/60 


•-•  FUNCriQN:  COUSTRUCTS  THE  INTERPOLATORY  EXPONENTIAL  SPLINE 
•••  TO  A  SET  OF  POINTS  IN  THE  PLANE  WITH  MCUOTONICALLT 

•-•  ItiCREASING  ABSCISSAE  USING  PERIODIC  END  CONDITIONS 


REFERENCE;  B.  J.  nCCAHTIN,  NUMERICAL  CCttPUTATION  OF 
EXPONENTIAL  SPLINES,  COURANT  MATHEMATICS 
AND  COMPUTING  LABORATORY,  OCTOBER  1980 

DESCRIPTION  OF  CALLII.'G  ARGUMENTS: 

X  :  ABSCISSAE 

F  :  0R0IHATE3 

NPl  :  riL'liaER  OF  C?OtHEQ  PAIRS  OF  DATA 

B  :  RIGHT  HAND  SIDE  OF  SPLINE  EQUATIONS 

TAUOP  =  SOLUTION  OF  SPLINE  EQUATI0»4S 

P  =  EXFOrJENTIAL  SPLINE  TENSION  PAfiAflETERS 

H  :  DELTA  X 

ALPHA  i  SCALING  PARAMETER 

SUCROUTirtE  EXPSPLIX.F, NPl, B. TAUOP, P,H, ALPHA) 
OIMEIISIUN  X(l),F(ll,B(l  ),TAUDP(  l),P(  n,H(  1  ) 
DIMENSIOtt  E(  100  I.DIAGf  100  I.ILIMLI  100  I.ILIMUC  100)> 
iq(  100  I  ,SI  100  l,T(  100I,U(  100  I.V(  lOQI 
REAL  LAI3AR 


c  *•» 

C    »•• 

INITIALIZATIOU 

C    -•* 

lOUT^l 

IPLOT=0 

C0!:5Tl-l./6. 

CLNSrC^l./J. 

CUI!Sri  =  -7./oO. 

CC):.jr,  =  Jl.,  C3C0 

C0MST5--1 ./15. 

CC:iSTo  =  C./3i5. 

fl=(;?l-l 

f:ril-N-l 

i'.PJ:l.E-o 

•  r:fC.  ,:l. 

tfA^.o; 

SI0"1-100. 
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b 

Irt  lOur.NE.OI    URITE(16,6) 

0 

rorn-.n/,-           i                h' 

) 

Ir{ lOUT.HE.OI    USITEI 16,7) 

(I, HI  I  I 

7 

fc.rtM.ji  r<,i5,Eis.7i 

c 

•  n  » 

c 

■  K  « 

OEflME    B'S 

c 

*  •  « 

s:ALe:n./(X(NPi  i-x  in 

IFdCUT.tiE.O  I    i;RnC(  10.21    ITtlAX 

I  FC";r,Ti  /,  •    iTHAy   =    ■  ,  IS) 

IFI  lUjr.CE.OI  i;SITE(lb,J)  EfS.ClCGA, ETA. SIGMA 
I  KrilAK/.'  r.P3  :  •  .Ei5.7,5X.  ■OIlLGA  =  '  .E15 .  7,5X,  '  ETA  =  ■,E15.7,5X, 
rSIC!IA  =  •  .£15.7) 

ICOjliT-O 

OU  «♦  1=1  ,N 

m  I  ):,<(  I»l  1-X(  I  )  ... 

.  HI  I  )=!;CALE»tl(  I  ) 

CO  5  I:l.M  . 


,1=1, N) 


0(1)  =  (F(2)-F(1)  )/HI  l)-(FiNPl  1-F(M1)/H1N) 
IFitI.EQ.  1  )  GO  TO  U 
00  10  i-z.n 

10  bl  I  l:iFl  Ifl  )-FlI)  )/H(  r)-(F(I)-F(I-l  )  )/H(I-n 

11  e(NPi  )=B(  I ) 

IF(IOUT.IIE.O)  UHITE(16,12) 

12  Fcr;;i',T{/,  •     i       b-  i 

IFI  lOUT.ME.O)  URITEC  16,15)  ( I .B( I  )  , 1  =  1 ,NPl ) 

1  J  FCRnATI 1X,I5,E15.7) 
C  »"• 

C  •••  OETERMIME  k'HICH  INTERVALS  SHOULD  BE  FIT  WITH 

C  •••  LIHE  SEGIIEMTS  AMD  UIIICH  INTERVALS  SHOULD  BE 

C  -•»  FIT  UITH  EXrOMEHriAL  SPLItlES 

C  ••-     K         =  MUliBLR  OF  EXPONEHTIAL  SPLINE  INTERVALS 

C  •••     ILIULII)  :  LEFT  HAND  ENDPOIHT  OF  ITH  SPLINE  INTERVAL 

C  •«»     ILlrnjd)  =    RIGHT  HAHU  ENDPOIHT  OF  ITH  SPLINE  INTERVAL 

C  ••• 

K  =  0 

IL=:l  ■ 

U  COMflNUE 

□0  20  I^IL.N  ' 

TEnP=6( I)«6(  I»l) 

IF(TEMP.Eq.O. )  GO  TO  20  ' 

K-K»l 

ILIML(K)-I 

DO  16  J=I,N 

TEriP=B(  J)'8(  J*l  I 

IFCTEflP.NE.O.  )  GO  TO  15 

ILinU(K):J 

GO  TO  29 

15  IFr  J.NE.N)  GO  TO  16 
ILItlU(K):N 

GO  TO  30 

16  CONTINUE 

2  0  CCMTIriUE 

GO  TO  30 

29  IL=J 

CO  TO  !<» 

30  CQHTIIiUE 

IHICUr.NE.O)    t;RITE(  16,  31  )    K 

31  FO-IIATI/.  •    K    :     ■  ,13) 
IFtK.EO.O  )    GO    TO    S'l 

IF(  ICur.NE.O  1    URITE(16.32) 

32  FC:.riAT(  IX.'  I       ILIML    ILINU') 

iFduur.t.E.oi  i;nirF(  16,33)  (l.iLinLi  i  i.iLinut  I),i  =  i,k) 

35    FOI'MATI  15,15,  IX, IS) 
C    •-• 
C    ••-    i£r    UP    5HLIIJE    EQUATIONS 
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!•;  oiMi=o. 

iccj';r-icouiiT»i 

IK  KiUT.UE.OI    k"ITE( 16,1C00) 

iHXcuT.ne.oi  u!?ire(  lo,  3o  I  icount 

36    hO:.'I.MI  IX,  ■  ICOUNT    -     ',151 

IK(  luur.tiE.o  I  wr?itti  10,371 

J7    Ft.^H\T(/,'  IP  H"  ) 

irc  ICUr.ME.OI    kVlTE(lb.33)    (I  ,P(  I )  ,H(  I  1 ,  1  =  1  .N) 
iO    IO-;\T( 1X,I5,E15.7,E15.7( 

UU   hO    1-1,11 

PI-P(II 

HI-H(  I  I 

PIHI^PI'HI 

PK-ri-PI 

IIMt'Ihl.GT.ETA)    GO   TO    J9 
c   •-»  use   foi;er   SEPILS  REFRESCHTAIIOH 

pr:iii;-Pi;»Mi«ni 

Pl'.HI-^^PICHIC'iPICHIZ 

t(  I)-<  l.«-C0tlST3«PICHI2»C0HST4nPI'iHI<»»»HI»C0NSTl 
OI-I  1  .  ♦COHST5-Pi:HI2»COUST6-PI'-.HI^  )»IH»C0NST2 
OUGf  r  l-OIMltOI 
CO    TO   '.0 
C    ••»   USE    HiFERSOLlC    FUNCTIONS 
59   0(131111  =  1  ./HI 
SI  =  SIini<PlHI) 
CI-COSHtPIHIl 
PIDt5I  =  PI/'5I 

El I)=I0N3YHI-PIBYSX)/PI2 
0I  =  (  PIBYSI'CI-OfJBTHI  )/PI2 
DIAGl  I»=OI(H»OI 
<.0   Oi:il-OI 

0IAC(  1  )=OIAC(  1  )40I 

IF(  lOUT.NE.Ol    URITECU.'tn 

<»i  Forr*T»/,  •  I  E' ) 

IF(IOUT.NE.O)   URITE(  16,^12)    (  I  ,£(  I )  ,1  =  1  .N) 
<i2    FCKMAT(  IX,I5.E15.7» 

IFI  lUUT.tlE.O)    t;RlTe(16,'t3» 
<»3   FORlUTc/,'  I  DIAG'  » 

IF(IOUr.ME.O)   VJRITE(  16,'*<»)    (  I  •OIAC(  I )  •  1  =  1  ,NI 
<,<t    F0RHAT(1X.IS,E15.71 
C    ■«'• 

C    •-•    ALTER    SPLIHE    EQUATIONS 
C   ••• 

IF(B(1  I.EQ.O.  I   E(  11  =  0. 

IFlBI  1  I.EQ.O.  )    E(NI  =  0. 

IFlN.Eq.l  I   GO   TO  <»6 

00  h5   1=2. N 

IFlBI  II.Me.O.  I   GO   TO  <i5 

E(I-ll:0. 

E{  I)  =  0. 
<*5  CCIITIKUE 
<.6    COMTIIOJE 

IF(IOUr.NE.O)    WaiTE(  16,'»7) 
-.7    hGRMAr(/,  •  I  £■  ) 

IF(  lOUT.ME.OI    URIIE(  U.'ta)    (  I .  Et  I  1 ,  1=1  ,N  ) 
4.8    FORMAT!  1X,I5>E15.7) 
C    »•• 

C    »»»    SOLVE    SPLirJE    EQUATIONS    (SEE    AHLBERG,    NILSON   AND    WALSH) 
C    <•»« 
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f  h  -O  t.^Cl   1   1 
■Jl  1  l--tl   I  l/PK 
Ul  1  l-bl  1  1.  IK 
•ii  1  I --El  III    i'K 
UO    m    KK-C  ,l.'nl 
f.   ;ll  KN-1  i»Ul  hK-l  )»OIAC(KK  I 
•ll^^  l  =  -EUK  1/HK 

UUhl-lblKK  )-t(KK-U«UlhK-U  )/PK 
..9    MKH  ]--ElKK-l  l«S(KK- 11/ TK 
t(i;i-  1  .         - 

UO  tio  L=i  .h:ii 

TIM<);Q(KK)»T(KK»U»S(KK1 

50  V(KK  l-QI  KK  )«V(KK»n»UIKKl 

tAUUHim-lB(M)-eiNI*V(  n-E(N-n«V(M-l  ))/!£(  N)«T(1  )»E(N- I  )»TlN-l) 
l-DIAbltll) 

rK-n-L 

51  lAUIIPIKK  )-q(KK  l«TAUOP<KK*l  )  tSI  KK  )  "TAUOPI  N  )  ♦U(  KK  ) 
TAUUPlMPl  )  =  rAUOP(  It 

IF( lOjr.ME.O)    UWITEI 16.S21 
Sa    HOHir.n/,  '  I  TAUOP  B'  1 

in  lOUT.riE.O)    HRITE(16,5J)    (  I ,  TAUDPd  )  .Bd  1 .  1  =  I  .NPII 
5J    hOHIlAT(lX,I5,E15./,E15.71 
C    •  ■» 
C    •••    PLOT    EXPOtlEMTIAL    SPLIHE 


C    ••• 


IK  IPLOT.riE.O)  CALL  ESPLOTI  X  .  F  .MPl  .B  .  TAUOP  ,  P  ,H  ,  ALPHA  ) 

IF(K.£Q.O )  GO  TO  99 

1F( ICOUnr.GE.ITMAX)    GO    TO    £000 
c    <•  •  • 

C    •■•    UnUATE    P'5 
c    •■■• 

IFLAG^O 

00  ao  1=1 .K 

IL^ILIMLIIl 

IU-ILIIIU(  I) 

TEfil'-TAU'JPI  rL)«B(  ILI 

:fi  TEtlP.&r.O.  )    GO    TO    6'* 

IF  I  TAUDPI  ID.EQ.O.  .AUD.IL.NE.  I  )    GO    TO   b't 

Ift  fAUOPI  ILI  JIE.O.  )    GO   TO    6  0 
C    •♦•    TAUUP^O    AT    LEFT   HAIIO    ENDPOINT    (FIRST   POINT) 

If-L^G-l 

l'IHI-P(NI.£PS 

P(  I  1=P(  1  )«£PS 

CO    TO   (.<• 
60    1F( IL.HE. I )    GO    TO    62 
C    •»•   b"rAL'OP<0    AT    LEFT    HANO    EtIOPOINT    (FIRST    POINT) 

TKl/T,=  l 

LAtlDAB-AMAXK  ABS(  B(  1  )  I  .OIAGI  1  )»Ae5(  TAUOPC  I  I  )  ) 
J/(  2    »AnAXl(  AOSt  TAUDP(  N)  )  ,AB3(  TAUOP(  2  )  )  )  I 

PriLUA  =  l  ./StJHT(  LAfIbAR«H(HI  ) 

PriLOA^AHAXK  l'riLOA,P(N)  I 

PlH)-PIHI»OnEGA*(  PTILDA-P(N)  ) 

priLOA-l  ./SUST(  LAr.DAR»H(  I  )  1 

prUUA-AtlAXK  PTILDA  ,P(  1  )  I 

i'l  1  l-P(  1  )»OntGA»(  PTILOA-P(  1  )  I 

G')  TO  6'« 
C  •••  b.lAUUP  0  AT  LEFT  MANO  EnOPOINT  (OTHER  THAN  FIRST  POINT) 
62  [HAC^l 

LArU'-H-AflAXK  ABS(B(  ID  1  ,OIAG(  IL)-ABS(  TAUOP(  ID  )  )/ABS(  TAUOP(  IL*1  )  ) 

prU()A:i  ./S'iMT(  LAriO/'»«HI  ID  ) 

priLOA-AnA>  iipriLOA,P(iLii 

PI  iD-P(  ID'OMtGA'l  PriLOA-P(  ID  I 
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iLi:unu-i 

IF( lUMl.LT.ILPl  )    GO    TO    70 

00    08    J=ILPl ,IUMl 

IF( TAUDHt J  I    Ht  .0.  )    GO    TO   66 
C    ••»    TAUUP^O    AT  .AN    INTERIOR    POINT 

IFLAG-1 

PI  J-1  t:P(  J-1  )»EPS 

PI  J  |:P(  JI»EPS 

'■.0    TO   68 
66    rEriP;T<unP(  Jlt-3IJ) 

IM  fE^P.GT.O. )    GO    TO   68 
C    »•«   O-TALOPsO    AT    AN    INTERIOR    POINT 

IfLAG:! 

LUI'JiR-AMAXU  ABSIBI  J)  )  ,OIAG(  J  )«ABS(  TAUOP(  J  1  )  ) 
1/1  :.»AtlAXll  ABSI  TAUOPI  J-t  I  ),A65(TAU0P(  J*l  1)1) 

PriLOA:!  ./5GRTI  LAt13AR»H(  J-l  )  ) 

PriLOA^AnAXllPTILDA.Pf J-1  )  ) 

P(  J-1  )-P(  J-1  )»OMEGA«(PTILDA-P(  J-n» 

PTIL0A=l./SC9TI LA-BAR^HI Jl  ) 

PTILOA^AMAXK  PTILOA.P(  J  I  ) 

PI  J  |:P(  J)»OMCGA«tPTILOA-P(  J)  ) 
68   CO:iritlU£ 
70    TEllP-TAUOPdUMBI  lUl 

If iTEriP.GT.O.  )    60    TO   80 

IFlTAUOPdUl.Cq.O.  .ArJO.IU.NE.N)    GO   TO   80 

IFI  TAUUPI lUI.NE.O.  )    60    TO    75 
C    •*«    TAUOP^O    AT   RIGHT   HAHO    EtIOPOINT    (LAST    POINT) 

IFl.AG=l 

P(N-l  )  =  P(N-l  )*£PS 

Pun  =  P(M)*EP3 

GO    TO   80 

75  IP(IU.ne.N)    GO    TO    76 

C    ••*   U»TAUOP<0    AT    RIGHT    HAND    ENOPOINT    (LAST    POINT) 
IFLAG=l 

LAMBAR: AMAXI I  ABS(  B(  N ) ) .OIAGt  N  i  »A8S( TAUDPt  N ) )) 
l/(  l.«AMAXl(  AeS(TAUDP(N-I  I  ) ,  ABSl  TAUOPl  2  )  ) »  ) 
PriLOA-l ./SURT( LAnBAR«H(N-l  )  ) 
PTILOA^AMAXK  PTILOA,P(N-l  J  I 
PUI-1  );P(N-l  )*OnEGA«(PTIL0A-P(N-l)) 
HTILDAil ./SUHTI LAnoAHUMlN) ) 
PriLOA:AMAXl(PTILOA,P(N)) 
PIN);P(N)tOMEGA»(PTILOA-P(N)) 
GO    TO   80 

C   •»•   B«TAUDP<0   AT   RIGHT   HAND   ENOPOINT   (OTHER   THAN   UST   POINT) 

76  IFLAG-l 

LAnBARrAMAXK  ABSl  B(  lU  1  )  ,OIAG(  lU  )«AB5(  TAUOP(  lU )  I  )/Ae3(  TAUOP(  lUTlI  ) ) 

PTILDA-1  ./S(JRT(  LAMBAR«H(  lUMl  )  ) 

PriLDA:AnAXllPTILOA,P( lUMl ) ) 

P(  lU.ll  )  =  P(  lUMl  )«0f1EGA«(PTIL0A-P(IUtU  11 

conriffljE 

CHECK  FOR  EXTRANEOUS  INFLECTION  POINTS 

IFI  IFLAG. E(J. 0  1  CO  TO  99 

SCALE    ABSCISSAE 

Xr!U:0. 

00    93    1=1 ,N 

93  xnu=:Ai;»xii  xnu.Pi  I  )«H(  I) ) 
ALPM,vc=Aru:<iixnu/:jiGnA,  i .  i 
alphh:alpiia«alpmac 

DO    9h    1=1,N 
111  I  )-HI  I  )/ALf'HAC 
9<,    6(  I  l-0(  I  l-ALPHAC 


c 

••• 

c 

«»• 

c 

•  l># 

c 

•  •• 

c 

■  #• 

c 

•  ■I* 
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Bitlll   i:6(M?l  I'ALPHAC 

IKIOUr.NE.O)    h:5ITE(  16.951    XMU.ALFIIAC. ALPHA 

95  FOJtUTl/, -XrtU    -    •  .E15.7.5X, 'ALPHAC    =    '  ,  E15.  7,SX,  '  ALPHA 
IFdCur.HE.Ol    WWITE(li,96) 

96  FcnriAK/.  •  I  H  B"  » 
imCUr.ME.OI    WRITE(Io.97)    (  I  ,H(  I  )  ,B(  I  1  . 1-l  .N> 

97  fOPlUT(  IX.IS.CEIS.  71 

IFt  lOur.t.E.O)    uaiTEl  16,981    UPl.BINPl) 
93    (0:.'!IAT(lA.IS.15X,£l5.7l 
GO    TO    1-4 


.E15.7» 


».•    riQ    EXIHAtlEOL'S    ItlFLECTION   POINTS 

•  ■  t* 
99    IF(  IOUT.r;E.O)    URITEI  16,1000) 

IF(  lOUr.tlE.O  I    l-:Rir£(  16.  100)    ICOUMT 
100    F(;i;ilAT(  •    riO    EXTSAtJEOUS    IHFLECTION    POINTS: 

1000  rGP:nT(///.  • 

GO    TO    3000 


ICOUNT 


,13) 


,///) 


•  ••   MAXIIlUri   NUneER    OF    ITERATIONS   EXCEEDED 


:ooo 

:ooi 
:coo 

pHA 

**« 
««« 

•  )•  » 

•  •  » 


IF(  lO'JT.NE.Ol    URITEI  16.1000) 

If ( lOUT.HE.O)    URITEf  16,2001) 

FQ-^MATI  •    HAXinUtl   NUtlCER    OF    ITERATIONS   EXCEEDED') 

RETUrJN 

END 


ESPLOf:  a.  J.  MCCAHTIN   10/60 


•-•  FUNCTION:  PLOTS  THE  EXPONENTIAL  SPLINE 

•  •# 

•-•  DESCRIPTION  OF  CALLING  ARGUMENTS: 

•*•       X  :  ABSCISSAE 

•*•       F  =  O^DINATES 

«••       NPl  :  NUMBER  OF  ORDERED  PAIRS  OF  DATA 

B  =  RIGHT  HAND  SIDE  OF  SPLINE  EQUATIONS 

TAUDP  =  SOLUTION  OF  SPLINE  EQUATIONS 

P  3  EXPONENTIAL  SPLINE  TENSION  PARAMETERS 

H  s  DELTA  X 

ALPHA  a  SCALING  PARAMETER 


SUBROUTINE  ESPLOTt X.F , NPl ,6, TAUDP. P,H .ALPHA) 

DIMENSION  Xll),F(ll,6(l  ),TAUDP(  1  ).P(  n,H(  1) 

OltlEdSION  XPt  10000  )  ,FP(  10000  )  ,Zl  2  ) ,  IPNUM(  2  1 ,  IPLINE(  2  )  ,IP3YM(  2  ) , 

IPIMCR(2).ITITLE(60),XLBL(5),YLeL15),IP3TRT(2) 


DATA 
DATA 
DATA 
DATA 


BLANK/' 
XLBL/5»' 
TLBL/S»' 
ITITLE/5»' 


•/ 
'/ 
'/ 


, 'EXPO' , 'NENT' 


'lAL 


'SPLI'.'NE 


,50»' 


INITIALIZATION 


lOUT^O 
N^MPl-l 
DO  1  M-1 .2 
I  Z(ni-8LAHK 

SCALE-2./(X(NPl  )-X(  1  )  ) 

<*  mm 

«••  SET  UP  ARRAYS 


3a 


K-0 

1F( ICUT.ME.O) 

FJPMATI/.IX,  • 


HRITE(  10,33) 
K       XOAB 


TAUBAR 


TAUBP'  ) 
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DO   •.!>    1  =  1  .M 

0.<  =  /.Lril.'.-IM  11/99. 

d.:m)</cca',e 

■<>:-/j  I  )-0X 

00   wO    J=l, 100 

k:I«1 

/(•(►  IJaX.OX 

If  (XPIKI.Lr.Xd)  1    XP(K):X(I1 

iK\('ii\i.Gr.x(i»in  xP(K):x(i»ii 

•.•.<;;  PI  H  I 

CALL    ECCVAL(X,F,HP1 ,B , TAUOP . P >H , XP( K ), FP( K ) .TAUBP. ALPHA  1 

IF!  ICjr.fif    0>    l:PirEt  lo.  J9)    K,XF(K),FP(K),TAUBP 

J<J 

fc:'.ur(  1>.I5,3C15.71 

'.0 

COMIIIiJE 

s5 

i.o-iri'XE 

DO  -.J  i-i.t;pi 

J-K»I 

fVi  Jl-X(  I  ) 

SO 

F('(  J  i:F(  I) 

IPOrRK  U^l 
If'STRTIO^K*! 
IPIIUIK  1  I^K 
If-I.Uni  C  |:HPl 
IPLlllEI  1  l-i* 

iPLihEi;;  i  =  -i 

IPairil  I  1=0 

iPCtni^i^l 
iPir;CR(  1  )  =  i 

IPI:XR(2):l 

c 

•  »• 

c 

■  •* 

pLor 

c 

•  •» 

call  pltek(xp,fp,2.mz.ipstrt,ipnurt,iplihe,ipsym,ipihcr.ititle, 
ixlol.tlbl.uuh) 
HETunn 
Ei;o 

c  ••• 

c  ••■• 

C  «••  ESEVAL:  B.  J.  MCCARTIH   lO/BO  ' 

C  ••» 

c  ••• 

C  •••  FUNCTION:  EVALUATES  THE  EXPOMENTIAL  SPLINE 

C  •»■• 

C  •••  DESCRIPTION  OF  CALLIUG  ARGUMENTS: 

C  •••       X       =  ABSCISSAE 

C  •••       F       -   OROIHATES 

C  •••       UPl     =  MLTDER  OF  ORDERED  PAIRS  OF  DATA 

C  »•-       B       =  RIGHT  HAND  SIDE  OF  SPLINE  EQUATIONS 

C  •••       TAL'OP   =  S0LUTI0r4  OF  SPLIHE  EQUATIONS 

C  «•*       P       -    EXPONENTIAL  SPLINE  TENSION  PARAMETERS 

C  «••       H       -  DELTA  X   . 

C  "•  XBAR    =  ABSCISSA  OF  EVALUATION 

C  «.»       TAUBAR  =  UROIHATE  OF  EVALUATION 

C  «•«       lAUEP   :  DERIVATIVE  OF  EVALUATION 

C  ...       ALPHA   =  SCALING  PARAMETER 

C  •»• 

SUtRGUTiriE  CSEVALI  X.F.NPl  ,B  .  TAUOP  ■  P  .H  ,  XBAR  .  TAUBAR  ,  TAUBPi  ALPHA  ) 

oinCNSioN  x(  1  i.Fi  1 1 ,e(  1 1 , rAuup(  1 1 ,P(  n,H(  1 1 

C  ••• 

C  .•*  INITIALIZATION 
C  •«• 


CONSTl^l ./6. 

co.'isrc-i./j. 

CC-.iTl  =  -7./cO. 

C0Mir<.-3i  ./:S20. 
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cutr.r5  =  -l./i5. 

CC1IS16  =  C./31S. 

CQM5rr--7./i'?5. 
co::Sia=-.05 

CUHjr9:l ./ICO. 

tTA=.07 

SCAL£  =  C./(X(NP1  )-X(  1  )  ) 

C    ••* 

C    •••   OETEHttlME    INTERVAL  - 

C    "»  .        ■     I        '        ' 

00    10    J- I. N  1 

I:J 

IKXeAR.LT.XIJ»X  n    GO   TO    11 

10  ccriTinue 
c   •-• 

C    •••'   DETtr?niHE    TYPE   OF    FIT 

c    •♦• 

11  TEnp=B(  i)«a(  1*1 ) 

IF(  Tc.'IP.HE.O.  »    GO    TO    CO 
C    ..»    FIT   WITH    LiricAR    FUHCTIOH 

TAUBAR-(F(I)-(X(  1*1  l-xeAR)»F(X*l  )•(  XBAR-X(  I )  ))/( H(  I  )»ALPHA ) 

TAUOAH=SCALE«TAUOAR 

TAU2P:IF(  Itl)-F(I))/(H(I  )»ALPHAI 

TAUBP:Sr.ALE"TAUEP  :     - 

GO    TO    30 
C    »-•    FIT    WITH    EXPONENTIAL    SPLINE 
20    X1-SCALE»<X(  1*1  l-XBAR  1/ALPHA 

XC=SCAL£«( XBAR-XI I ) )/ALPHA 

PIC:P(  I)»PI  I) 

PIHI-P«  I  l*H(  I) 

IFIPIHI.GT.ETAI  GO  TO  2S 
C  «••  USE  POUER  SERIES  REPRESENTATION 

PICHI2:PIHI»PIHI 

Pl'tHl'i-PlZHlfPlZHlZ 

X12:X1»XI 

/.22  =  X2«.<2 

XU-XU'XIS 

X2'*->,'22»>:22 

0IIBKI2:l  ./(H(I)«H(I  1  ) 

TERMINI.  ♦CONSTJ«PI2HI2tCONST<i'>PI'*HI* 

TERrl2 -CONST  1 'PIC -0;;BHI2 ♦CONST 7»PI2»PI2HI2 

TERn3  =  (CONST8-OllBHI2*CONST9»PI2)''PI2 

TAl)BAR  =  (F(  I  )»X1*F(  I»l  )»X2  )/H(  I)-COflSTl«H(I)« 
II  X1»TAU0PI  I  l»(  TERm*TERI12«X12  +  TtRn3»Xl<»l* 
2a2«T,\UOP(  Itl  )«(TERIU»TERn2»X22»TERriI»X2<»)  ) 

TAUcjP-(  F(  I»n-Ft  I  )  )/H(  I  )-CONSTi«H(  I  )» 
l(  TAUOP(  I»l  )•'(TER^1l♦J.^•TERM2•X^2♦5.»TERM3<»X^<^)- 
2TAUDP(  I  l*(  TERrtl»3.»TERM2«Xl2«5.*T£RnJ»Xl^ll 

TAUBP=SCALE»TAUDP/ALPHA 

GO    TO    30  I 

C    »••    USE    HtPERDOLIC    FUNCTIONS 
25    0ENOri  =  PI2»SIIIHl  P(  I  l«M<  I  )  ) 

TAU9AR:l  TAUUPI  I  )»SINH(P(  I  I»X1  )«TAU0P(I»1  )»SINH(  P(  I  )»X2  )  )/OENOM 
1»1  (Ft  I  I-TAU1)P(  I  ),'PI2  I«X1»(F(  I»l  l-TAUDP(  1*1  )/PI2  )«X2  )/H(  I  ) 

TAUOP;(  TAUOP(  I«l  l«COSH(  P(  I  )»X2  )-TAUOP(  I  )»COSH(  P(I  )»XI  )  )»P(  I  l/DENOM 
l.lFIItll-F(I  IMTAL'OPf  I  l-TAUDP(  I»l  J  )/PI2)/H(  U 

I AU1P -SCALE  •  TAUL;?/ ALPHA 

30  cjurujue 
RETur?ri 

EMU 
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Appendix  III;   Euler  Solver 


?'^J^^  i'•^     •^AlMI.-,PLT,ctrPjT,TAr^ti5=I.)Pl>T>TAP£lo=JclTPtJTfTAP£10* 
iTAPtii) 

A-    ah.     .-. 
T-  T   T- 

*«» 

»?* 
T  T  ¥ 

I'-'I-ir*  ^tCn(  40»  1^)  ,  ■•jv: 

c^ >  { ^ V ,  1  -^ ) ,  Y  ( V  , ,  1 4 ) ,  r  r  ( H : ) ,  r P  (  1  ^  )  >  S  ( "^ 0  )  »  S P ( -v C)  , 

3D{^J)>TAj:P(^.^)^?(';r)>-i(nO), 

'.XSl.-  .M  Ad^),  /  ^^  .  r  (  4l,  i^)  .  YIjLBX  {  -lU,  i^)>  YSL  lY(^0,  1^)  , 

bF-'i  (  '.  .,  ^^),  F  i2(s.*  1-  )  >r   '.i(  'tO,  1^  )  f  F.l^  (-^t,  14  )  , 

dbM  (  1^,  4  j)  ,  ;,  'Zi  l^t^^.  )  /  ^  ■_'  (  1A>  ^C  )  ,G.'4  (  1^>  'iC  )  > 
9FiX('^:,,i^i^F^,i>(-'.,l-»),rjA(s^,i't),F4X(AC»i^)> 
XGiY{  w  J,  i^  J  ,02  Y  (^  j»  .-  )  .  .,  JY  (  't  j,  1^  )  ,G^Y  (AC  J  lA  ) 

Cu  v-L-i    CooTi,C:.-oTc:>C-i.N3T3*CL,\STA,CC-,ST5,CJiJST6,C  Ji\ST7>Cu,4STbiCai 
1ST9 

['AT:.    VA-'./O.C/ 

^  r  I  T  e  (1  5  ,  1  ) 

1  fuR^z^^lr^i,/f////////////////////////////,iOK, 

i?5HELLt-?2L.   er   3.   J.   i-'CCAKir.) 

CALL     ►^L  JTS3L(  OJ.,l'tHb.     J,     rCCA'-TiN) 
Cu  .5Ti=i./D. 
CGNST2=l./j, 
CCN3T3=-?./c3. 
CCNi  ['•=  31./i;3J  ). 
CL:>l5Tr  =  -l./l?. 
CC:\STl  =  2./313. 
C:NST7  =  -7./i^:/. 
C  u  N  S  T  "  =  ~  •  \j  I/ 
C  b  :•.  i)  T  ^  =  X  .  / 1  £  ' . 

Call    i\-'uT  (G-..;.  A,L'EcTAr  #:sPL  jT^NiT6PS#.MPi,MPl,  MINF  ) 
CALL     C-:^C<■^Pl^.^Fi,Xr,rr>.<»Y»i,SP,Y•'.A<»j6LTA^>DtLTAY* 
iXS  jr.  X  ,  ;(  Stc  Y,  YS^r  x,ysi  jr,  J  ACQi.!. ) 

CALL     I  ■•  ITFl  (  JE^ST*  ^>.,si   I*;.  ■;,NT.•;i£^RbY»  i)>  SP»  Y'';AX^  YP^NPl»MPliMINF^ 
IGA.^U  ) 

:<  P  T  S  =  \  t)  1^  4:  V  p  i 

DL    IC     J=i*  ■•  P i 
Dd    iC     I=i*NPl 

.''S  JD=i3  3  (  TE.<  i/  (Gi  -.■.*.*(oA^.1A-l  .  )  *(Dc:iST{  I,  J  )  *tNRGY(  I^J  )-.3*TkK;'i)  )  ) 
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10    CuNTlNvii 

Cu    IS    J  =  l*-lPi 
L.'u    15     I  =  l»^iPl 
SAVcLd*  J  )=JENbT(  I>  J  ) 
i  A  V  t  .^  (  1  »  J  )  =  ■■"1  ■  J  T  .••  (  I ,  J  ) 

SAve^d*  j)  =  '''' T- ( i>  J) 

5r.V-c(I»  J  )=t  .^GYC  It  J  ) 


S\( I* J)  =  Si7c  J  {  I  .  J  ) 


15 


tE(I/J)=S-.=£(IiJ) 

CCM  I  NjE 

CALL    0  E  r  I  •■ .  '^  (  J  >i  » ■•  •'.  *  . .  i  •  >  c  -E  >  X  P  ,  Y  f  W .  P  1  >  . "'  P  1  > 
1  Y ,-  A  < >  o  A  S  -  A  ^  h  r- 1 »  h  r  £  ,  f-  r  3  >  F  r  ^  ,  F  ;•  1  *  F  •'' £  »  F  ,•:  3  *  F  -W  »  X  i  Ufl  Y  »  Y  S  Ld  Y  ) 

Call   d £  f  i  • ,  vj  (  J  j »  ■;;■>'.  N  >  u  !:•  A  ^ » Y ?>  ,\  p  i  >.  i  P  i  - 


1 Y  ;•,  A  X  i 


,-tA/&Pi»b^ 


c  t 


Call    CT'?FP(  <  ?>'.F  1*  >Fi>  F  pi*  FFZ*  FP  3*  FP-t^F^il^Filtf*  Fn3>  F,'i't> 
li>TALjP*P»^*Fiy,FiX,FjX*r^X*CE:LTAX) 

CALL    C::iPyP{YP.:  ^1,  •lPi»or'i*oP2>GP3»&?^»Gn*G/iZ>&;i3*G'^'^* 
lr>TAujP*r*ri>jlr>G2Y*b3Y^G'tY*L£LTAY) 

Ci_'    ZG    0=1^.- PI 

ju    2C     I=l>  ..PI 

DElT«\  =  3ELTaT/ J -CC-:.  (  I  >  J  ) 

Df<ST(wJ)  =  uEiSl(I.o)-(l./o.)-[ELTA*(FiX(I>J)+GlY(I,J)) 

^',^.MT:  (  I»  J)  =  ■  'NT'  (  1  .  J  )-(l .  /-  .  )  -L  ELTA*  (  F2:X{  I,  J  )+G2t  (  1,  J  )  ) 

r..-:M-'  (  I*  J  )  =■>  M'-  (  If  0  )-(l.  /c.  )'FL  ELiu*  (F3X{  1»  J  J  +.p3  Y(  I>J  )  ) 

c  1^  K  G  Y  (I  ,  J  )  =  E  i  ^  G  Y  (  I  .  J  )  -  (  i  .  /  o  .  )  -  G  t  L  T  A  -  (  F  A  X  (  I ,  J  )  +  G  ^  H  I  ,  J  )  ) 
20  Co^Tlf.jE 

D  u  2  ^  J  =  1  *  /.  P  i 

Du  25  I  =  l*f,Pl 

DcLTA=DELTaT/ JAGG:.*  (l^J  ) 

DL;(I>J)  =  Sa;Ej{I>J)-.^-jELTa=i-(F1xII,J)+G1Y(WJ)) 

,^X(I»  J)  =  SaVc^(I»J  )-.5-GELl/-.-tFLX(I*  J  )+G2Y{  I?  J  )  ) 

i\.v,(  I,  J  )  =  Si^yE  <  (IfJ  )-.S-uELTa*(  F5a  (I,J  )+C3Y<  1,  J  )  ) 

1 1  (  I  »  J  )  =  i  A  V  E  E  (  I  *  u  )  -  .  r  -  J  E  L  T  A  *  {  F  A  X  (I  »  J  )  +  G -i  Y  (  I  *  J  )  ) 
25    CGNTINJE 

CALL    DEFir,F(GO»  '.■••»  i.N*  EE»X?>YP*f.  P  If  -IP  1* 
1 Y  /.  A  <  ,  G  A ,-,  >•  A  ,  F  P  1  f  F  P  2  ,  F  P  J  f  F  P  ^  f  F  .■•.  i  f  F  ;-i  i: »  F  i''  3  f  F  -1  <t ,  X  S  U  ;5  Y  f  Y  S  U  3  Y  ) 

CALL    G  E  F  I  r.  G  (  3  :  f  -■  ■•' , '.  \  ,  t  c  f  X  P  ,  Y  F  ,  •  P 1 ,  ,v  P 1 , 
lY>.AX»GA'i '.A,  G-^  L*GP2f  GP  if  GP^f  Gi-lfV;  -12,  Gi'^,3>G'1^f  xSG:f  ^fYSUBX) 

CALL    CG/.PFPC  <Pf  NFlf  ••  Pi.  Fr  l,FP2f  FP3»  FPHf  F-'ilf  F.M2>  Fh3>  FM^> 
lB>TAGGPf=fHfFiXfr2XfF3\fF'.X..  r.cLTAX) 

Call    CJ.-lPGP{«'Pf,Pl».'.Pi>GPi>G?ZfoP3fc.P^fi:>''.lf  GiS2f  t..;i3»G,^^; 
lof  TacGP*  ?>Hf  31Y,  o/cYf  GSYf  G^Yf  LELTAY) 

L"  J    3  u    J  =  1  f  .-l  P  i 

C  J    3  0     I  =  1  f  i  H  F  1 

LtLTA  =  OELTiT/ jiCGi  .( if  J  ) 

DEU5T{I.J)=?EroT(IfJ)-(l./3.)*bELT4*(FlA(IfJ)+GlY(IfJ)) 

.^NNiT."  (If  J  )  =r  ^AT*-  (  If  J  )-(l.  /3.  )*CtLTA*  (  F2x(  If  J  )+G2Y(  If  J  )  ) 

NM4T.'-.  (If  J  )  =  N  ".NT-df  J  )-(  1./3.  )vr  ELTA*  (F3a(  I,  J  )+G3Y(I,J)  ) 
tN-<GY(l.J)  =  E.-:oY(If«)-(i./3,)*LELTA*(F<iX(IfJ)+G^Y(IfJ)) 

CG-ai^liE 


30 


DG  3  5  J=lf  -IPI 
DC  3=  I=ifNPi 
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itlLri  =  3cLTAT/oi 

j^  (  W J )  =  itVt J ( i 

'''^  (  I»  J)  =  ".-vE  1(1 

f.f  { I,  J)  =3;  VE  .  (1 

tE(I»J)=jiVtr(i 

3 

p    C^MIsjE 

C^LL    Ctrif  FC/J, 

lY^  A<,o^''.,-ii,F^l> 

CALL     J£FI.,G(J.^, 

lY,   £.«.  ,  '.i  "^-i^GJi, 

CALL     C  :   '■  P  h  P  (  ■.  f-  , 

1  3  ,  T  M  :,  !^  .  1^  >  H  i  F  1  ; 

CALL     C:  '  ^Gf-  (  I'P  » 

li,TAL-.^,-,H,Gir 

JG   ^'i    v  =  l>^•pi 

DL    tw    I  =  l,r.Pl 

b  c  L  T  A  =  :  E  L  T  A  T  /  J  • 

L'£oT(I»j)=i.r'.j 

r.*'IT>  (  I,  J)  =  '     NT 

!.:-  XT^'(  I*  J  )=  .  '•-.T 

t  .N  p  G  Y  ( I ,  „ )  =  E . .-?  :- 

^ 

C    ClMI,-.jE 

;:lj  ^f   j  =  i,'iPi 

OZ    -ip     I  =  i^'-^1 

u£lt»>  =  :elt^t/ J 1 

L.'Zll,J)=:.^;tj{i 

■•'  i-  (  I  *  J  )  =  S  «  V  t  ••  (  I 

i.\(  1,  J  )  =  o^Vn:  .  (  I 

c  =  {  I  >  J  )  =  --  -  V  E  E  (  I 

^ 

5    C'^-iTlx'JE 

Ci-LL    OEri:.F(JD, 

lf<Ax,GA:VA*FPi, 

CALL    D£Fir.G(-K:, 

1Y;-.AX>  GA'^.'^A,  oPi» 

CALL     C:  l^f  P(X->» 

lofJX^O'>,-*r,fH 

CjLL     C-.l^oP  (  YP, 

13,TAi.  C  P»  P/f-.GlY 

DG    5J    J  =  i>y.Pi 

Cu    5  0    I  =  i>;,Pi 

uELTA  =  jELTaT/j.; 

OE.NSTd,  J)  =  .E-.> 

v; Ml-  (I»  J  )  =  •  ••.,T 

h.-'i.MT.-d^j  )  =  \.:  NT 

E.S^GY  (  I*  J  )  =^  j.^G 

5 

0    Cu\T1-'.jE 

T1iE=<*JElTaT 

iy=(K/  vPlgt)*\jl 

rsSu?  =  G 

Dc    oO    J  =  1*".P1 

Du    6v.     I  =  1,.\P1 

TA:<r.=  -  -NTNC  I.J) 

.MSQ0  =  A3S  (Tt\-:/i 

.•nACh(  i,j  )  =  i::-vT( 

I  F  (  ■<  ^-  C  -1  (  I  >  J  )  .  o  t 

6 

0    C  C  M  i  N  ■  J  t 

C  ^  -J  ^  (  i » vi  ) 

*j)-.>-jFLrA*(F]X(I,J)+Clf(I,J)) 

^J)-.^vjtLTA*(F/X(I>J)+(:^Y(I>J)) 

>JJ-.:>*JtLTA*(FEX(I>J)+G3Y(I>J)) 

,j)-.:.-jElTA*(F^)((UJ)+C4Y(I,J)) 

r.','i\,EE»xp,  YP*r-Pi^--;Pi* 

F-'Zf  Fr  J.  FP^,F. <1>  F-'^>Fh3>FlH»  X  SUB  YjYSUbY) 
.    :>   ••  »rE/>-^*YF  ,'.P1,  •-.Pi, 


I .  ^  > 


»  .J 


f  3 »  oP  -t  »  Gi  1 1^  G.i2 


)  ji-i 


S/GX'^j 


'1^  'P1>^F1»FF2>  FP3»FH'4»FM 


F^-I2f  Fr  3^  ft^.^f 


^F2'>rj;t^f-^X>LELTAX) 
■•^l>-r'i»Gri>G^-2;*GP3f«jP4>G''.  l^G.IZ^GIj/Gi'l'tf 

,  o2^,  .,3r,G4Y,:ELT  AY) 


CGi;-    C.J) 

T ( i^ J  )-(  1./3.  )*[ tLTA* {F1X( 1, 

^  ( i,J)-(l./3.)*rELTA*(FZX(I, 

:•  (  I .  J  )  -  (  1  .  /  :> .  )  '- 1  E  L  T  A  *  (  F  3  X  (  I  f 

Y{i^J)-(l./j.)*LtLTA*(FAX(li 


C  u  a  1  s  {  I  »  J  ) 

..  J  )-:•£  L  rA-"(  ri>  ( I*  j)  +  GiY(  i>  J) 

>o)-EclTAv-{F?x(1,J)  +  G2Y(I.J) 
/  J  )  -  •:  t  L  T  A*  (  F  3  X  (I  ,  J  )  +  G  3  Y  (  I  >  J  ) 
*J)-utLTA'f(F'TA(I,J)+GtY(I,J) 


J  )+GlY (  I»J  )  ) 
J  )  +  ~.  ?  Y  (  I  ,  J  )  ) 
J )+G3Y(  I*J  )  ) 
J  )  +  o  ^  Y  (  I  ,  J  )  ) 


:■.  '.f    -a*  Ltt  X?f  YP,NPi,MPl, 

FP2,FP:;,FP^,F^•il^F."'i2»Fn3*^■*i'^*XSU'3Y»YSU3Y) 

.••:  -^-.N.  cE>XP,YP>r.pl,,-.Pl, 

G  P  2  >  G  P  3  ,  G  r  ^  f  G  ;■'.  1 ,  G  *"■  2  >  G  I'  3  >  G 1  '^  > 

rPlO'Fi.Fr^ljFP^^FPS^FP^jF.^l/ 

^rEX/FjjC/FtX^ijRLTAX) 

.^  .^  i  >  MP  i  f  G P  i  >  GP  2 M^ P  3  >  G  P  4i  G^ll  >  GN2 >  GM3 #  Gf1^> 

,  G2Y,C3Y,G'tT,CEL  TAY) 


XiUBX, YSUdX) 
Fi1£>F  13*Fi-14* 


C  J  :;h  (  I  *  J  ) 

T(I*J)-(l./o.)*CELTA*(FiX(I, 
•■(I*J)-(i./6.)*[tLTA*(F£X(I, 
.'■  (!^J)-(i./r.)=?DtLTA*(F3>^{I* 
Y(I,J)-(l./G.)v:tLTA*(F',^(I, 


,1-^ 


'f 'L  +  NrNT.-C  i»  J)  **2 


J)+G1Y(  I, J )  ) 
J )+G2Y(  I>J )  ) 
J )*G3Y( I,J  )  ) 
J)+G'»Y{  I, J)  ) 


GA^-i-f  (^A,'-  -lA-i  .  )*(.jEMST(I.J)«£NkGY(I,J  )-.S»TER.'n)  )  ) 

:'  S  V  D  ) 

.  1 . )    N  i  o  P  =  ri  S  U  P  + 1 
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J  0  E  N  :>  T  =  —  1  • 

AOf 'oT=  J. 
A  .s  .-.'•.  T  ■".  =  0  , 

A  £  "4  R  G  f  =  0  . 

DO    7C     J  =  i>'^Pl 

D  E  L  T  -i  i'^  =  A  E  i  ( .'  ^  N  I  "  (  1  >  J  )  -  i  !i  V  E  iM  I  >  J  )  ) 
jbLT;.-.=  icS  {  ■.  ■•  -.T  ■  (  I,  J  )-j  ^-'^N  (  1  *  J  )  ) 

AuE-ST=ADc:i3T  +  3ELT^L! 


71 


72 


73 


70 


A.^  iM".= 


•^  ;•,  T  ^  +  ^  L  L  T  A ,'; 


•    .     V        T  •.   _    ■    - 

»^  1^  :  i   1  I   •  I  —  M 

Ac 


G3    T3    71 


oJ 


TG    7k 


)     iJ    TO    72 


)     oJ    TQ    70 


SJ  :<*ut  LT  A'. 
?br=AE-<GY+^fLT"t 
IF(SCE'!3T.Gc.:/ELrA[,) 
S jEnST=DElTAC 
ISD=I 
J  S  D  =  J 
I  F  (  S  "■•  ■■:  N  T  .'i .  G  E  .  :;  c  L  T  A  1  ) 

Sh-r^NT  ■'.=  jEl  T  a-^, 

ISi=I 

JSi=J 

IF  (SNMN.T.^.C-E  .DELTA; 

SNT1T"=  OELTi-i 

IiN=I 

JS"i  =  J 

IF(SE.■^i'JGY.Gr  .  DELTA 

StNr^6r=DELTAE 

iSE=I 

JS  E  =  J 

Cl.NTI,\iJE 

ADEM5T=  aCE-oT/:.pT5 

Ai-.'-rn  '•  =  A ".,•'. NT  *./r^PTS 

Ar.  ^:\T,''"  =  ANriNT"^ /;.?TS 

At  ^I^'GY=  AEN^Gf /^^' TS 

-,rITL(16>7r)     ^.,^SLP 

FJ'JSATC^H    K    =     W;»3X,7mUSUP    =     /I  5) 

•.■R  ITE(lo»7'«)     SL.rN5T>l:iO>JiL:*ADI^r>ST 

F  G  R  •■•.  A  T  (  1  X  ,  E  1 ;  .  7,  I  i  ,  I  ;  »  E  1 5  .  7  ) 

w  f.  IT  E  {  1  o  >  7  5  )     S  •■■^,  T  •■  >  1  5  ,W  J  S  *-;  f  A  i';-.  N  T:^ 

FL.^'.AT(lX»Ei:.7^iP>IS>El?.7) 

*rITE  (  1o»7g)     S'   ^"- T  - ,  i -o>.  ,  J  SN,  Ar<.'^  N  Tit 

FCR'iAT(lX*cl3.7,l5»Ir>Ei;.7) 

#.KlTE(io»77)     SEN-<GY,ljc»oSE>AEr.KGY 
77Fu'«lAT(lX>cl3.7W3>I^»El3.7) 

REWP-D    10 

-  i  IT E  (  i  0  )     .< 

«t.  ITE  (1  j)     (  (JENSTd*  J  i^.n/.NTNd*  J  )>\MNTi''  lI,J)^£NRGY(I»J)»I  =  i>i\Pl)> 

IJ  =  1  >  ^'  P  i  ) 
IF  (.^.'NE  .  C)     ^3J    TG    90 
CALL    CHE-vPTX(  V  A?  ) 
akITE  (iD»;:l) 


78 
74 
75 
76 
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»,?lJtiib,c^)    ( J  /  :>  -: ..  s  T  { i ,  J ) ,  hi  f-T  ii  ( 1  /  J ) ,  N  MNT  M  ( 1 ,  J ) ,  6  NPG  n  1  >  J  )  > 

».rITE(i^,oi) 
83    Fij.^."'!iT(7H    ■:JuTLET) 

^i<ni^lbfc^)    (  j^^i^oK  ;Pi,  jj/h-KMhCNPi,  j),nmntm(mpi,j),enrgy(npi>  J 

1  J^MACHCiPi.,  J  )  ,  J=i^/,PI  ) 
»»,-ITE(l'5»ot) 
8^    FC"? X^K  ilH    U''^-:'     ^AlL) 

AiITt(lt>c£)     (I,^E..:T(i  >r;?i),M;',NT.'^(  I  » i',P  1  )  >  U/.NT.I  (  I^  .-I  Pi  )  ,  ENKGY  (  I  ,  MP  1 
i)^  1ACH(  I,rPl)  ,  1  =  1, -.PI) 
-•.ITJ:{i6,ri) 

8  5     F  Q  <  >; ;  T  (  i  1 H     L  ;•  .^  r  i-     ^  ;.  L  L  ) 

w^ITE(  lc»c2)     {  I>  Jt  ;iT(  wl)  ,rV,NTM  (  I,  1  ),NM.NlTrt  (  I  >  i  )  /  ENRG  Y  (  I  ,  i  )  , 
l.-IACHl  1,1),  1  =  1,, .Pi) 
SC4LX  =  ,j7:, 
SCAL">=3. 
CALL     FrA.-iE 
IPE-.=  3 

DC    S7     1=1, N Pi 

Call     PLGT(jCiLX*(X(I,i)+i5.),SCAL>:*'lACh(I,l),IP6N) 
67     lrEi=2 

CALL     FkA;-'.E 

IFE'i  =  3 

L  C    3  V     I  =  1 ,  .,  P 1 

CALL     PL  JT(iCALX*(X(  I,  ■';Pl)+li}.  ),  SCAL;i-,lACH(I,,"lPi'),IPEN) 
b9     l-^t.=2 

9  0    CALL     c.nDkYC  (N  PI,  '^P1,M  jF,  3  A,i.'' A,  D  Els  b  T  ,  .If.NTfl  ,  \.'1NT,1 »  ENPG  Y,  SP  ) 
100    CoMIv.'JE 

CALL     f^XAt 

Call    PLjT(Q.,G.,'i9y) 

icoc   sr3P 

E.ND 


***  IN 
^c 
GA 
M 
L  E 
aP 

to 

10  Fj 

11  Fl 
110 

«  s 

12  f'u 


3>^C 

ITI 

AL 

M^A 

NF  = 

LTi 

1  =  ^ 

1  =  1 

T£P 

LJT 

ITE 

ITE 

R-'A 
X,; 
Hz 


JT 
AL 

i'i  I 
=  1 
•  6 
T  = 
0 
i, 
5  = 

(1 
T{ 
(1 
T( 

^\ 
(1 
T{ 


INC     I.'.PUT(GAy^i,0!iLTAT,KPLuT,NST6PS,.N31,hPl,«lNF) 
I^E     Para,'' ETEi?  ^ 

r<  r 

75 


750 


0 
t>,lJ) 

iKllN^'jT) 
c  ,  1 1  ) 


li     ,  7.\,t;rH:A->'^a,iOx,  AH.-'IN  F,lCX,6hOELTAT,lfcX,3HMPl,12X,3HMPl, 
PL:  T,  10X,th,NiTcHS) 

o,i2)     GA,^<'A,.vi\r,LELTAT,NPi,MPl>iNlPLCT,rMSTtPS 
i  ».    ,  JE  15.  7,S  I  i:> ) 
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KtTjff. 


IXj 

C  ***  Gt 

H  c 

Dl 

iHj 

2aS 

L  I 

X;- 

X:'-, 

Y- 

L/C 

DE 


IC 
2  0 


i:5 


YP 
X  6 
M 
XT 
>T 
XT 
Y  1 
YT 
YT 
FP 
FP 
CA 

c: 

IF 
IF 
IF 
I  F 
CA 

IF 
Cj 
NS 
xS 
aS 
xS 
X  S 
XS 
aS 
xS 
Yo 
YS 
YS 
YS 


LiUTINE 
X  »  )t  S  'J  c 
.-ATE  i 
J  ACCi 
I.il'J'i 
^)» j(^ 

X  {  ^  0  >  i 

i.SIu.N 

=  15. 

.. 1  ,:, 

-     1  -'  • 

=  *». 

A  X  =  2  ,  ? 

AY=Y'^A 
0     1  =  1, 

)=/  11:. 
L  J  =  1  , 
)= ( J-i 


3k 

Ui 

rjc 
AL 

(1 

U3 
■•it 
A^ 
I:; 

AX 
LT 
LT 

1 
{  I 

2 

(J 

A-^ 

(1 

(2 
(  J 
(1 
(2 
(3 
A  = 
B  = 
LL 
2 
{/. 
(X 
(  K 
(X 
LL 

(X 

ST 
=  7 
(  i  )  =  X 


C^G'^KhPI^:-!-^!,  XP,  YP,  X,  Y/S,  SP>  YhAX>  DELTAX,l)ELTAY* 
Y,  Y5'Ji3<,YSLLiY>  JACPtl.) 
n  i:  A  K  f  C     C  J  J  -  J  1 1 .  A  T  E  b 
NC^G^l'f) 
;kP(^C),YP(l't),x3(l^),YS(..H),ej(lA),TALJPS{l^),Pi(lH), 

:).s?(-.c),A(-tO,i^),Y('ta,it)> 

^),'^iL:.<Y(A0,lH),YSLl5X(H0,l^),Y:.U()Y(Hj,l^) 
AT  (  3),  YT(  ;),  iT(  i),T;.L.L;PT{i  ),.PT(3),riT(  3) 


X-;ai/  CPl-l) 
x/  (.-iPl-l  ) 

+  (  I-l  )  -L  r:LU\X 

;•  p  _ 

)-JiiLT  AY 


)  =  0. 

)  =  X? 

)  =  '•  1 
)  =  :. 

)=X3 

)  =  X  ••, 

YT  (2 
(YT{ 

cXP 
i  1  = 
P  (I  ) 
P(I  ) 
EVAL 
E  V  A  L 

ESc 

Y,iLj 

P(I ) 

I  \  'J  £ 


A  h  +  ,  p  *-'  (  X  .  ••  A  i<  -  X  J  A  R  ) 
AX 


AX 

)/xT( 

3)-y: 

S  P  L  {  X 
l,^Pi 
•  G  c  •  J 
.  L  I  .  0 
.  L  T  .  •; 
.  G]  .  A 
V  A  L  (  X 
.-i.-.Y,  i 
.LT.C 


2)-. 15 
(2))/(xT(i)-XT(2))+.l 

T,Yr,PPA,FPr,NT,-iT,TAL;aPT>pr,nT,ALPtiAT) 

.  )     X  E  V  A  L  =  \  P  (  i  ) 

. )     X£V Al=-XP ( I ) 

T  (  i  )  )     A  E  V  A  L  =  X  T  ( 1  ) 

T(;.T))     xE;AL  =  XT(rT) 

T>YT,'.T,3T,TAULPT>PT,riT,XEVAL,X{I,l),XSUax(I,j.), 

LPHAT) 

.  )     *  ( 1,1)=-/ (  1,1  ) 


(2 
(3 
(4 
(  p 
(--> 
(7 
( 1 
(2 
(  j 
(A 


)=-5. 
)=-^.5 
)=0. 
)  =  2.i 
)  =  ?. 
)  =  X  -"lAX 
)=o. 
)=j. 
)  =  .l 
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i 

Y 
Y 
C 
I 
X 
1 
I 
C 
ID 
30    C 

r 
t^ 

L> 

X. 

Y 

^0    C 

Al    F 


A3 


50 


31 


r 

F 

[: 
0 
X 
X 
Y 
Y 
J 
C 

IS 


IJ 

52    f 

P. 

t 


:-  (i) 

i(7) 

iLL 

u    3C 

kVAL 

F(;<e 

F(<t 

ALL 

ui-'Y 

u    At. 

u      ^C 

(I.J 
(I*J 

CMI 

KITE 

kITc 

C  R  •■•.  A 

"ir£ 

w  -?  •'.  A 

SJoY 
SUE;/ 
S  J3Y 

^l.NiTI 

►.IT5 
t-YSt 

KiTt 

aC  J"" 

EToF 

ND 


cX?SPL(*5*YS*J.*J.>i.S>ci>TAUDPS*Pj>HSiALPHAS) 
I=l*r,Pl 

=X(I,1) 

;AL.LT.^5(1))     XE7AL=X5(1) 

«  AL.C-T.  ^3  (  '  :  )  )     A-,/AL  =  x3(i.S  ) 

f  ScVaLO  S,  YS>  ir>^  j>j*  Ti.jOPr,»PS*HS»XEV^L#S(  I)^SP(  I)  » 

,  :)J■'^,Y,iLP^-Ab)) 

J  =  1 ,  ••'  p  1 
I  =  1  >  .1  p  1 

)=X(I.i) 

)  =  rH(J)  +  S(I)-(l.-Y?(J)/Yf-,AX) 

'  <  L'  •= 
(lc,'.l) 

T(  9H1GE1 -ItT-Y) 

T(1H     ,S1  I,:>h  J>7X>lh-x,;AXWHY) 

(lfc>A3)     ((l>o^Mi,J),YlI>JWi=l>NFi)fJ  =  l>nPl) 

T(lh    ,£I5>>£1..7) 

J  =  1  ♦  .".  ^  i 

I  =  1  ^ :;  P  i 
(  1  *  J  )  =  »  3  u  r  X ( I ^ 1) 
(I  »  J )  =  J . 

(i>j)  =  SP(:)-(i.-r'^(o)/Y,!Ax)*xsaBX(i,j) 

( I» J)=l.-: ( I) /Y     AX 

\<I*J)  =  xSUDX(l»j)-YSiJcY(I,J)-XS0  3Y(IiJ)*YSubX{I»J) 

.N  JE 

(l&»i;l) 

Tdiri  I  J,:>X>3HXSiJHX^  luX,5h  xSUoY>  10a>5HY:)U3X/10X^ 

5Y»  iCX*^'1JAC•Jb^.  ) 

(lo>i2)     ((I»J,XSJiX(I,JJ,X'iUL<Y{I>J)>YSuiiX{I>j)>YSUBY(I,J»* 

\   {    I   *  J    )  >   I   =  1  ^  >  ?  i   )  i   J  =  i  »  :1  r>  1  ) 

T  (  iH    ,  21 :/» :>clf;  .  7) 
N 


S03^,CuTr.E     I  >iITFL(  Jf.NST>r':MNTr,NNNT.';>  E.SPoY>b*SP>YMAX,YP>iNPi,MPli 

C     ***    CiLCLLATt     IMTIAL    FLC«    FIELD 

t-L  AL     ■' r>  F  >.•:•. -a  ^  (nC*  j'O^'.,'   IT;-.  (  AO^  1^) 

CiM^.-.  5lJ\     Jt\ST(-^o,lA)>tN<GY(Au,l'«),S(AO)^SP(Aj),YP(lA) 
CU    IC    J=l^iPi 
Du    IL     I  =  1»^4P1 
•JENST(I>J)=i. 

EK^GY  (I,J  )  =  .i;-+l./  (G/iNl:A*(GA.^MA-l.  )*MlWF*:iINF  ) 
10    CCNT I NJE 

Do    2t-'    !  =  ^*NPi 
.^^NT^  (I^^'iPl  )  =  1. 
^^•/-lT^. (l>  -,hi)  =  c. 
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ao 


^:MNT.'' 

CGnTI 

DCi  30 
LG  3C 
^^;-■.NT^ 

CGNTI 
»  K  I T  t 
I-  C  -<  ■'  i 
»kITE 

llOX,  :• 
X  f  I T  t 

1I=1»N 

33    FC'i.A 
t.ND 


3C 


31 


32 


(I/i)=5 

N'JE 

-1 
J  =  2  i  M 
I  =  1  /  f.  ^ 

(  I* J)  =  ( 

(I»J)=( 

(16/31) 
TCl^hll 
(16,32) 
T(1H  ,1 
H  (E  •  i  ■<  G  r ) 
(It., 53) 

r-l),  J  =  l 

TCn    ,2 


./3'.^T(i.t3P(I)*5P(I)) 
^  (]  )-i- -tNT.'-K  1,1) 


rp(  J)  /Yi-'AX)  ^rnir.Tf  (  I/.-'.Pi)  +  (1.-YP(  J)/YMAX  )*MhNT,'^(  I,  1) 
YP(J  )/YrAA)*^;'l^T^;(i,.■1Pl  )  +  (l.-YP  (  J  )/ YiiAX)»NhNT,'l(  1,1) 


\ITUL    FLJ^    FIELD) 

2-i  I  J       ,tiX,SMOcroT,  1  jX,  SH.^'JV;!.-!,  lOx,  Shi-iMNTn, 

(  (  1,  J,Dt  ;iT{  I,  j),;'.'''NT'-l(  I,J),t-.'^NT^;(  1,  J),t:NKGYl  I,  J), 
,  ;-i  P  i  ) 
I  3, ''tip  .  7  ) 


5u3='-L)UTr.:t    D£FlNF(DD,M1,;,  M,tE,XP,YP,NPl,\Pl, 
1  Y:--i  A  X,  5i/i  ■':  A,  F  •^  i  ,  F  .->  2,  F  r'  3  ,  F  P  -»  ,  Ff  a,  F  ^;  2,  F  ,S  3,  F  i'.  ,  XS  U.^  Y,  Y  S  UB  Y  ) 
C    ***    DEFI'.E    FLuX    ytCTu^    SFLiTTI>iG    IN     X-:j  1 1>  cCT  lO.s 

kt4L     .^.r  (^u,l^  ),■•.  (4C,  !-»),  LA^'Pl,  LA'lPi,  L/!^P^,  ,' 

1 L  A  ^IM  i  ,  L  A '*,;•■  3  ,  L  A  •  .■  -.  ,  K  ^  T  ,  \  n  ,  K  2 1 

LlMrNil  J  ■!  GD14:,  i  A)  ,  cc  (n:  ,  1^  )  ,XP  (4  ^)  ,  YP  (i't  )  , 
lFPl(''0,i-.),FJ2(Ao,lA),F?3('iO,  l^),F-<t(-fC,lA), 
2FH1(  ^0,  lA)  ,F  ■12{Ao,1A),(:M5(A0,  lA  ),'"'-'.^lAC,  1^), 
SXS'J^YCtO,  lA),  YSUoY(AC,  lA) 

DO    IGO    J  =  1,.1P1 

00    IGO    I=1,.nP1 

U  =  ^..''.  (I,  J  )/ jO(  I,J  ) 

V=.<N(  I,  J)/uD{  I,  J) 

C5'3D  =  A3S({EE(I,J)-.5*(i'^.  (I,J)*^.lM(I,J)+^r^(I,J)«,■JN(I,J))/OL)(I,J))* 
lGAM1A*OA,\,-)A-i.  )/Ol(I,  J  )  ) 
C=SQ-T(CSjO) 

CCNSTi=Y3LoY(I,J)-J-XS^dY(I,J)*V 
KKT=iQRT (YSU5Y(I,J)**2+XSJdY(I,J)**2) 
CCM5T2=C-KkT 


L  A  -^  P 1  =  0  . 

LA  ^'.;n  =  o. 

1KC3,\ST1.GE.'J.  ) 
IF  (ClV.STI.  LE.  J.  ) 


LA«Pi  =  CLiNSTl 
LA^rl  =  CC.>ll,Tl 


LAMP3  =  L  A.vpi  +  Cu-.ST2  .       . 

LA'IPArLAIoi 

LA.^^3  =  LAi-'.^l 

LAM>'.A  =  LA'-'!^l-CQMir2 

KiT=  tS  J:!\  (  I,  J  )  /KK,T  '  ' 

K2T=-XS J3Y (I. J ) /^kT 

C3Ni>T3  =  DD(I,J  )/  C  .*SA,MtA) 

«=(  (  3.-3A-.,iA)  *  (LA/.P3  +  L  A'-.Pt  )*C*C  )  /  (  2.*  (GA-'^A-l  .  )  ) 

FPK  I,  J)  =CGN^T.-J*(2.  *(G4.\i\A-i..  )=!aA;IPi  +  L/  -l-S  +  LAilPA) 
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We  may  now  use  our  relations  between  {x,"}^"'"?-   and  {x')^"'"-'- 

k   k=l  k   k=l 

to  establish 


X.    ,-x  x-x 

T(x)    =    f .  •    -i±i +    f .     ,     .    -^ ^    

1             h.  1+1           h.       ^   e.-d. 

1  111 


^   +         1 


^i+l-^i 


sinh  p^(x-x^)  -  sinh  ^^(x^^^-x)         x^^^-2x+x. 


ph. 
^1    1 


f      d- 

+  t:    i 


Pih. 


Ie2-d2 


1      1     ■- 


sinh   Pi(x.^^-x)         x.^^-x 


p2s. 
'^i    1 


P^h. 
1    1 


e . 

1 


2     ,2 

e.  -d. 

1      1 


sinh   p^ (x-x^)         x-x. 


p2s. 
•^1    1 


2u 

p.h. 

^1    1 


\ 
/ 


+    I 


i+1    I    2    ,2 

e .  -d . 

1      1 


sinh   Pi(x.^i-x)         x.^^-. 


ph. 
^1    1 


2v 

p.  h. 
^1    1 


o2    ^2 

e .  -d . 

1      1 


sinh   p. (x-x. ) 

ph. 
'^1    1 


x-x. 

1 


2u 

p.h. 

'^i    1 


1.4.   Generalized  Splines 


In  deriving  the  equation  for  the  exponential  spline 
we  used  the  factorization  D-p.D  =  (D   -p.I)D  .  The 
symmetric  factorization  D  -p.D  =  (D  +p.D)(D  -p.D), 
however,   permits  an  interpretation  in  a  generalized 
spline  context  [2,3,4,21,33,34,40,41,51]. 

In  general,  let  L  be  a  linear  differential  operator 
of  order  m: 

L  =  Pn(x)D"'  +  p,  (x)d"*"-'-  +  ...  +  p^  t  (x)D  +  p^(x) 
0         1  m-i        m 

with  Pi.(x)  £  C  [a,b]  ;  k  =  0,1,..., m.   Let  L  be  the 
formal  adjoint  of  L: 


T*    ,  ,.m  _m ,   .  ,  ,  , . m— 1  _m— 1 ,   ,  .     _,     .  . 

L  =  (-1)   D  (Pq)  +  (-1)     D    (pj^)  +...-  D(p^_^)  +  p^. 

A  generalized  (interpolatory)  spline,  s,  associated 
with  L  is  defined  as  s  e  C^'""^  [a,b]  ;  s  e   C^"*(x^,x.^^) 
where  it  satisfies  L*Ls  =  0,  i  =  1,...,N;  and  s(x.)  =  f.  , 
i  =  1,...,N+1.   (Also  known  as  L-splines.) 

We  note  the  following  special  cases: 

O  O  ^  A 

(i)    m  =  2,  L  =  D  =>  L*  =  D   ;  thus  L  L  =  D  ,  i.e. 
cubic  spline  interpolation. 

(ii)   m  =  2,L  =  D   -pD=*L   =D  +pD;  thus 

*      4     2  2 
LL=D   -pD,i.e.  hyperbolic  spline 

interpolation  [6,42,43]. 


10 


C-LL     E/ALr(/-',rH^(l,J)/;Pl,'3,TAU0P,P^H»ALfHA,F2X,bELTAX,IFLAG*J) 
CaLl     5PLrAP(<f'*r..^(i>J)»f-PA*F?L*I.Pi>BiTAJDH»P>HiALPFiA} 
lrLAG=? 

CALL     £;ALF(/^#P.-2(:*j)W^Pl,3*TAUDP>P>H,ALPHA»F2X,DELTAX,iFLAb*J) 
CAlL     iPLE^'^{Xr,r''3{i/J)/rP/.  ^FPr>NPi,b*TA'JCP>P>H»ALPHA) 
I  F  L  A  r,  =  1 

CALL     E.'ALr{AP,FPi(l,j),^Pl,B,TAULlP>P»H,4LPHA,F3X>DELTAX*IrLA&,J) 
CALL     S3LEXr(xP,r-'3(i*o)/rPA/FF::*MPltb,TAU0P:»PiH^ALPHA) 
irLAc=2 

CALL     EVALF(x-,Fy.Ml»J)/.-;?l^n»TtujP,P,H^ALPHA,F3X,DELTAX,IFLA6>J) 
CALL     iPLt/Pl^?,FPA(l,J),FPA»Ppr.*r.Pl>E:*TAJDPiPiH>ALPHA) 
I  F  L  4  C-  =  i 

Ci.lL     £vALF(X-'»FP-(^>J)*ir^l^.i>TKL;OP»P»H»ALPHA*F'tX*bELTAX>IFLAG*J) 
CALL     :-LE«^{X-^*F-^Cl>JJ>r-^A^F?iv>.<Pi>3^TAUDP>'^/H,ALPHA) 
I  F  L  A  C-  =  2 

CALL     eVAL^(X?/F;^(i»J):..Pl*t•:^TALUP^P^H>ALrHA,F4XiDELTAX,IFLAG,J) 
100    CCNTI'.Jc 

►  c  r  u  r  N 

END 


Su3KlJTir-E    C:n-&*'^(Y^>'.r'i,^-1Pl,GPi,GP2iGF3,&PA,Gill>G"''2,GM3*GM<t> 
l?*TAL:.P#P>.-^Gir^o2r,ojr'*'j^Y»[tLTAY) 
C     »**     Co:^^lT=     Jtr.I  y  J^TiVcS     I*     Y-3I-^tCTIC!4 

Ci  ■•!£■>  SI '3;.    YP(  i-.)*  -:  {^C),TAJDP('rC  )>P('^C),M(AO), 
iGPl(lA,'.j),-,--2(i-,,4G),-.P3(l'T,^G)>GPH(l'»*'H0Jj 
2G/ii{  I^»  ^0),G-':2(  1«.»^L  )>G''3{  I'T.^c-J^Gr.H  (  isj-^G)/ 
3GiY(H0>l^)>Gi:r('-.jl^)fGjT(sL^m),G-tr'(HC>l^) 

DQ  i:0  1=1. N?i 

CALL  S?LE>P(r?,LPl(l,I)*'v.-?A,CP5,MPii:jiTALiOP,P^h1*ALPHA) 

IFLAo=i 

CALL  EVALG(Y3,GP1  (1»  I  )»MPi^tif  TaUDP>?»H*  ALPriA»GlY>GELTAY*iFLAG>I) 

CALL  S-LEXP(Y^>G-'i(iiI)>GPA,b?o>''',?l»  o^TA'JOP^P^H>  ALPHA) 

iFLAG=2 

CALL  EVALG(YP>G"l(l*I).lPl»a>TAUDP,P^H,ALPHA,GiY>D£LTAY>IFLAGiI) 

CALL  S3LEX3(YP,G?£(1^I  )  ^  GP  A/ GP  r  >  ^-^Pl  .  ti^  T  AUDP*  P^  H  >  ALPH  A  ) 

irLAG=l 

Call  EvAL^'(Y?,GPZ{l>i)/.lPl,2>TA(jOP,?/h,ALPHA,G2Y>lJELTAY,IFLAG>I) 

Call  iPLE>P(fP>G-'2(l>I)fGPA^v^Pc-*MFl»D»TAUDP*PjHiALPHA) 

IFLAG=2 

Call     EVALG(YPior'i(i»l)t-lFl*b/TiUDP»P>HjALPHA>G?Y^DELTAYiIFLAG*I) 

CALL     S^LtX^(f=,G?  3(1^1  )>uPA,GPbiMPl/E*TA'jDP>P^H,  ALPHA) 

i  F  L  A  G  »  1 

CaLL     EVALG(Y^,C-P3(l/I)»,:Pi>'3^TA'JUP*P*H,ALPHA,G3Y^DELTAY,IFLAG,I) 

CALL     SPLEXPtY^-iG'-Bd^D^GPA^GFt^'Mr'Ud^TAUDPfPjH,  ALPHA) 

I  F  L  A  G  =  2 

CALL     EVALG(Y=  /G:-o  (1,1  ),,-;Pl, -5,7  ALLPfP^H,  ALPHA,  G3Y,  DELTA  Y,  IFL  AG,  I) 

CALL    5PLE>°UP>GP^(i,I),GPA,GFb,,'-.Pl,  b,T  A'JLP*  P,ri,  ALPHA) 

1FLAG=1 

CALL     EVALG(YP.Gi^^(l*I),,''.Pl,'^>TALJP,?,H,ALPnA,GtY*DELTAY*iFLAG*I) 

CALL     Sr'LEX^'(  Y^,o*:^(l>  i),GPA,GPa,MPi,  B,TAUDP,P,H,  ALPHA) 

1FLAG=Z 

v,;,LL    Ex'ALo(Y-%G^.'t{l,I),hFl,L^,TAU0P,P,H,ALPHA,G4r>DELTAY»IFLAG,I) 
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100    C3".Ti:,;;E 
t.sD 


C    *** 


c    *** 


SL.3'.L'jTp.t:     ^nD^YC  (-.  =  1^  ■i^^i*^.l^.F^  GAi'nA^  L)ENST>riNNTM>Ni>'iNT  1>  tNRGY*  SP) 

EnFJ-CE    •Ju'jN')A-Y    c:,^.L  I  riuXS 

rEAL     •■^r.h*.'--".  .T-M  to,  it),  ■j;.--,7n{40,  1-^) 

t^I''E'>r:..     Dt'.SKiC.  It),  t:N  =  GY{  ^(_,  1^),  SP(40) 

f.  =  NPi-i 

P  I .-.  F  =  1 .  /  (  G  A  "    A  -  ;•  1  \  ^  V  ;•.  i  ^  K  ) 

£I\F=.5  +  1./  ('.-i'l;-  ,'.  *(GA  -l-lA-l.  )*f';lr,F*MINF) 

I  ;\  L  E  T 

uL'iCJ=l,'31 

kn  j=  ut  ij  T  (  1 ,  J  ) 
u=.-l•!^T•■•(l,  J  )/?H3 
v  =  r;/,M  -:  ( 1,  J  )/-i-C 


P={ 


!A-1  .  )  -  (  E:-PGV  (  i,  J  )-.  :  ^(l. -M  .  +  7*V  )  *hHJ) 


C 

C 


IC 
C    ^'* 


20 


CS  JD  =  i^S  (GA>i  •.A-P/--1  J  J 

C  =  S  J  '  T  (  C  3  <-.  G  ) 

FnC!P=l.  +  C  .  ^*':HO/C  )  -(  l.-j)  +  (  .ii/CSCO)*(  P-PINf-  ) 

^•nGP  =  i. 

bP=.  ^*  (  l.+L  )+  (  .  i/  (  -riL-.-:  )  )=?  {►^INF-P  ) 

L.P=1. 

VP  =  0. 

PP  =  . -*=.Ho*C-(  1  ,- J) +  .  b-(  PLjF  +  P  ) 

Pf  =P+'.-i'.j-G*(  1  .-'j) 

CcisST  (1*  J  )  =-.r.  JP 

C.-.NT  ■•  (  1,  J  )  =R^GP*UP 

NrNT,'--(l,  J)=rnGP*yP 

E.',RGY(l,j)=P^/(GA.'!.rA-l.)  +  .:/*(LP'!=UP  +  VP*VP)<-RHjP 

C  u  N  T  I  .s  0  E 

L  L  T  L  t  T 

l;u    2v    J  =  l,,iPi 

k^hG  =  GEMST(N?1  .  J  ) 

U  =  M.-m\T  i(.\Pl,  J  )  /-HC 

VsN-M-^C  •,Pi,J  )/wHC 

P=(GA  -i^i^-i  .  )  V  (r:  ^  GY(isPl,  J  )-.3*(  U'PU+V'^V)  <=kHj  ) 

CSO  J=A^S  (  Gi-.-l  A4:r'/&Hu  ) 

C  =  S  :  r"  T  (  C  S  V  r  ) 

r;HjP  =  ?Hj-r(  .Si.r-r/C)^  (  J-l.  )  +  (  .  t-ZCSJu)*  (PI\F-P) 

?:r-ijP  =  <>iJ+{Pr,r-P  )  /C5-J 

of  =  .5=^(j  +  i.)  +  {.t.  /{-'H^-:))*(P-Plr-;F) 

L'P  =  J+ (  P-P  INF  )/ {h.HC*C  ) 

w  P  =  ^' 

PP=.i*Rri2=fC*{U-l.)  +  .5*(P+PlNF) 

PP  =  Pi:.F 

Ct:;ST  (iPlfJ  )  =  ^-,CP 

.v.'-ST.''  (.-.Pi,  J)  =  ?hCP*  JF 

Nr.NT^ cpi,  J  )  =  -v:p*vp 

EN. -^ot  (\Pi/ J  )  =  PP/  (  G-iy..-,A-l.  )  +.:p<^(UP*U?  *VP*vP  j-'^HlIP 
CGNTI.\uE 
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*** 


3C 


AO 


b  =  .^  1 N 

V  s  N  '■;  ■■■. 
P=(GA 

.;hCP= 

L  P  =  J 
y/  P  =  0  . 
??  =  ?"•♦• 
Prs^* 

OE  'o  T 
-  ;■':  N  T  r, 

cc.;Ti 

V  s  N  M  N 
P  =  (  G  /■ 
C5  JQ  = 

ALPHA 

KhQP  = 

KraP  = 
U  P  =  C  u 

V  F  =  S  1 
PP  =  ^- 
PP=P 

de:;si 

E  f.  .^  o  Y 
CD'mTI 

END 


«ALL 
I  =  Z  ,  N 
E  r.  3  T  (  I  »  '.  P 1  ) 

T  'i  (  I  ,  . .  >- 1  )  /  r  -.  o 

IV'^A-I.  )-(  c.'  -vGYC  I,  iPl)-.r*(b*!J+V*V)*^ha) 

4-.S(Gi--i  =  f /-.Hu) 

T(CSwO) 

K-<0+(  kH  j/C  )  »v 


■c  H  J  ^  C  *  V 

(  I>  >^P1)  =  <Hl  ? 

(  i  # .-,  P 1  )  =  ^  -  L  P  *  'J  ? 

(I»:'.Pl)  =  %HCr'*VP 

(  I  ,  "  P 1 )  =  P  r-  /  (  G  A  '•  -I  u  - 1 .  )  +  .  .^  V  (  u  P  *  0'  ?  +  V  F  *  V  P  )  « .•^  H  G  P 
•'.  J  E 

^-ALL 

I=2>N 
E'.ST(I>i) 
T1{  I,l)/-',nL 

.■'.:■:. \-i,  )^  (E..'^GY(I,i  )-.i.*(L-u  +  v*v  )*Pho) 

A  D  i  (  G  A  f .  '  A  *  F  /  C  ri  L  ) 

=  ArA-   (5-  (I  )  ) 

PHJ-(  PHJ/C  )*(--!'.(  ALPHA  )=fL+CDS{  ALPHA  )*V) 

S{AL? HA )**?-L+5i<( ALPHA )*CbS'ALPriA)*V 
•'.{ALPHA)*CL-(ALFdA)*J  +  SIi\(ALPnA)**2*V 
<H2*C'(-3Ii;(ALPHA)*u+CjS(ALPr)A)'i^V) 

(I>1)  =  ?-'JP 

(  I*i  )=P-I-;P*LP 

(I>l)=K-!DP?v? 

(  If  1)=P■3/(C■A^  'A-l.  )  +  .i=!=(LP*UP  +  V'P*VP)*kHDP 

Ci  ^  1 »  i  )  =  0  . 
(UPii^'Pl  )  =  C. 


EXPSPL 


*-'     FCNCTI3J 


:?*■ 


J.     "CCA.vTrJ       10/fcO 


CDvSTPoCTS     THc    IMtRPGLAT3KY    EXFQfUNTlAL     SPLINE 
TJ     A    SET     3F     POINTS     IN     TME     PLANE     nlTH    MONO  TON IC ALL Y 
i^v;KEAGI^o    AiSCIiiAE    UST-iG    SPtClFIED    DERIVATIVE 
Ef.J    CCiNOiTlJ^S 
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c 
c 

c 
c 
c 
c 
c 
c 
c 
c 


♦  *» 
»♦* 

*♦* 
*»« 

^*  4 

V'  ^-    -^ 

■y  -r  -r 

*** 


fEFEr-tNCS:  tJ.  J.  I^CCAkTUo  NUMERICAL  CDilPUTATIJN  OF 
£XPCr.::MlAL  l^PLlt.tS*  CG^v.^A.U  M.ATritMATICS 
AND    CC/.-UTiWG    LAiJC^ATCkY*     JCrJFE*    1980 

DcSCi-  IPTIGiN  OF    CALLING    ARGUMENTS: 

X  =    AeSCIbSAE 

F  =     L;»'uI..ATt3 

FPA  =     LEFT    HA  ,j    OEi-lVATIVE    E.SO    CONOITIGN 

FPB  =    KiGnT    ha:. J    DE-^IVaTIVc    ENC    CGKDITIJX 

,NP1  =     NO'-'ibE'.     Ur     J-'^DtrtL      PAiRi     OF     LATA 

b  -     ■-l(,nJ    HA  ,0    SIDE    OF     SPLINE    ECuATIGNS 

TAUOP  =     SLLtTICN    OF     iPLIi-t 

P  =     EXr-C'-^EiNTiAL     SPLICE 

H  =DtLTA> 

ALPHA  =     SCALING    PAkAf'.ETEP 


E'vUATI  J'4S 

TcNsil;;   pa-^Ai-ieTcPS 


SciJKCuTI-.c     E  J^PSPL  (  X/F,FPA^FP«*^  PI*  o>TALDP*P»H,  ALPHA) 

G  I  VE  '.  5  I  : ".    X  (  1  )  ,  r  (  <:  )  ,  .  (  .  )  ,  T  ^  L;  0  P  (  i  )  >  P  (  1  )  *  n  (  1  ) 

CIlENSIGi^    t  <10:)OlAb(lJ})*ILirL  (l.D  )/ILIMU(10u)  »U(100)»U(iOC) 

REAl     LA'I^Ak 


c 

*=?» 

c 

«*T 

ii,ITlALlZATIG  >! 

c 

4v* 

10JT=0 

1PLGT=0 

C  l;  N  S  T  1  =  i  .  /  ^5 , 

CuMST2=i./3. 

CLiNST3  =  -7./cj. 

CC\ST^=31./25  ^C. 

CC  ■i3T3  =  -l./15. 

CbNSTo=2./31?. 

N  =  Ni?l-l 

EPS=l.b-6 

ai>-EGA  =  l. 

£TA=.C7 

SISMA=100. 

ALPHA=1 . 

I  T  .'1  A  X  =  3 

SCALl=2./(X(  JP1)-X(J ) ) 

ICjONT=0 

CJ    <*     I=1>N 

H(I)=X(  I  +  l)-X(  1) 

A 

h(I)=SCALE*H( I ) 
CO    5     I=1,N 

5 

p(  i)  =  a. 

c 

^** 

c 

»** 

DEFINE     .5  •  S 

c 

*?* 

10 

11 

c    *** 


£(1)=(F(2)-F(l))/H(i)-FPA/SCALE 

IF(  <.Ew.i)    g:   TG  11 

DO    10    I=2*N 

£3(  I)  =  (F(  I+i)-F(  1)  )  /H(  1)-(F(I  )-f  {  l-l)  )  /F(  l-l) 

o{MPl)  =  FPe/SC  ALt-(F(;JPi)-F(i\)  )/H{N) 
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^  T-  ^ 


15 

Ifc 
20 

29 

30 


r  iT    f  LJ  ri    cA 
K 

ILHL  (i  ) 
I  L  I  i  J  {  i  ) 


.■HUH     I^.T^i-ViLS     SHLULL     iJ  t     HIT     WITH 

.T3    il'C     r-iIC-i     i.-lTtrVALS    jHlJLO    bt 

^  =  :.^-^.T  iii.    ii^Li'iLS 

=     .t^i'-t^     3f     tXPjr.EMlAL     SPLINF     IiUERVALS 

=    L-lt-T    ,-a;,J    E.a.PuI-.T    Ur     I  Th    SPLI'sE     INTERVAL 

=    --IO.HT    hM.O    EliDPGlNT    of     ITH    SPLINE     INTERVAL 


U 

C.J 


Tc 

IF 

<  = 

IL 

TE 
IF 
IL 

GG 
IF 

i  L 

GJ 

o  u 

Gl- 
IL 
GG 
CC 
i  F 


0 
=  1 

•,  ri 

2  0 

r*,  P  = 
ITE 
K+1 
I.'.L 

Ic 
•'.?  = 
(Ti: 
IMu 

Tl 
(J. 
I-.t 

Tl. 
\Ti 
■iTi 

TO 
=  J 

t: 

■JTI 


I  =  I  L  »  '< 
3{  I)*i;(I  +  l) 

'iP»cw,Gt)    G.y    12    2j 

(K)  =  I 

^(  J  )'^-  (J  +  i) 

'i-  .  .t  .0.  )     Gl    TC     13 
(<)  =  o 

29 
•.E.N)    G3    TG    lb 
(<)=:.  +  i 

3  0 

.\U£ 
30 

1-i 
SUE 
Ew  .0 )     GJ    TC    5h 


SET    LP    S -^ L  I  n E     E C' u  A T  I  C .N 3 


Di 
IC 

L^G 
PI 
hi 
PI 
PI 
IF 

Ob 

PI 
PI 
E( 

ui 
Dl 
GG 

Li 
CN 
31 
CI 
PI 
E( 
J  1 
01 


=  P 
=  H 
HI 
2  = 
(P 
c 

2-* 
^H 
I) 
=  { 

AG 
T 
c 

3Y 
=  S 
-L 
oY 
I) 
=  ( 


=  0. 
.>.T  = 
C  I 
(  I) 
(I) 
=  PI 
PI* 
ir'I 
PG  ■>(' 
12  = 
i  ^  = 
=  (1 
1  .+ 
(I) 
L     ^ 

-1  = 

IN-I 
G'SH 
5  1  = 
=  (G 

PI5 
(  I) 


rJNT  +  1 


=  l,^ 


*MI 

PI 

.GT 

?I2 
Pi 
.  + 

C  J 

0 
E^.r 
1  ./ 
(PI 

(p: 

PI/ 

N6Y 
•^SI 

=  0  1 


.  r  T  .;  )     G  u 

SERIES 

r1I^*PI2ni2 

jroT?*-Pr 


TJ     39 

StiPKEiENTATIGN 


r1I^*PI2ni2 

jroT?*-PI2HlL:  +  Cu;-lST^*PI^HI^)*H*CCI.N:>Tl 

.^T5-Pi:H12  +  C-..<jTc*F14hI^)*Hl*CJNST2 

^1+?1 


■ILEC    Fu^CTIu^S 

;^l) 

r.1  > 
SI 

H 1  -  >>  I  p  t  S  I)  /  P  I  2 

*CI-GNcrYHl  )  /Pli 
'.1+31 
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c 
c 

c 


^G 


c 
c 
c 


43 
'.5 


C 


4Q 


i.1 
54 


?** 


64 


»*t 


...iiG(f  Pi  )=0I 

ALT  =  t      i?Llfit     E.LATIjfo 

IrCiCl)  .Ec.O,  )     l(  1)=C. 
If(N,E:..i)     &J    TC    4o 

L/  Q    *» ;    I  =  Z  *  ■ . 

C{ I-l )=w.  ' 

t  (  I  )  =  0  . 

IF  (  M.^l  )  .cJ.  0.  )     t  (f.  )  =  J. 

S^LVr     SPLI'.=     EvbATiJ.:^     (  _•  E  E    AhLotRb,     .4ILSuN    AND     ^ALS'n) 

P  r.  =  3  i  i  G  (  i  ) 
C(l)=-E( 1)/P< 
u(i)=3(l  )/P\ 

C  CJ    4  9    K  <  =  2" ».'..-'  1 

P(<,=  ':(K><-l)*.('<^-i)  +  C/iAo(M<) 

CC^"*  )  =-E  (r- ■<.  )/P< 

U(KN)  =  <:i(-<;<)-:(N.<-l)-J(<'<.-l))/rK 

T/.'JDP(  NPl)  =U(  .-.PI) 

DO     PI     L=1*N 

KK  =  N'?1-L 

T  AJJ  P  (  ^  <)  =  C  I  /  <)  f  r  A  ..  C  F  (  <.^  +  i  )  +Li  ( ,-  K  ) 

PL3T     i^?:i'.i:l^T  I  A  L     5  ^^  L  i   I  E 

C^NTI.NUE 

1F(<.E0.0)     &D    Tu    vQ 

IF(IC3J-.r.&E.IT:'AX)    GG    Tj    2j:o 

LPJAT£?«i 

IFLiG=C 

DC-    80     I  =  l>  K  ■ 

IL  =  ILnL(I) 

1 1  =  I  L  I  \  LJ  (1  ) 

Tl--.?=TA'J.jP(  ID*'- (  IL  ) 

1  F  (  T  t: .-,  P  .  G  E  .  G  .  )    G  :    T  G    c  4 

c-TAi.tV<G     AT     LEFT     ma.'O    LftOPuINT 

i  r  L  A  G  =  1 

LA;'GAk  =  A.   „*i(  ^E.S  (  -  (  ID  )  f  uUG(  ID  *A:>i  (  TA  JJP  (  IL  )  )  )  /ABS'.  TAUDPt  iL  +  1)  ) 

P  T  I  L  L  A  =  1  .  /  5  G  s  T  (  L  "  ••  r  A  T  - -I  (  1  L  )  ) 

P  T  I  L  L  A=  A  ■',  i  A>  1(  P  T  i  L  :  :» ,  P  (  i  L  )  ) 

F(IL)  =  P(iL)+-j.'FGt-(PTluG  A- PdD) 

I  L  P 1  =  I L  +  1 

lo.-'.l=I  J-1 

IFdG.-^l.LT  .  ILPI)     G_,    Tj    70 

C  J    ~  ?    J  =  I  L  P  : ,  I  L  ■•'.  i 

IF  (  TAGD^"  (  V  )  .  -E  .L  .  >     GG     TJ     5o 

T-JJr-  =  0     Af     A\     i;  TE';IG<     ='GI.\T 

IFLiG=l 
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i^  (  J  )»P  (  J  )*t?S 

C-C    TC    6:5 
66    T£1P=TAJDP( J)«e ( J ) 

IF  (  Tr  ;•'?...  T.O.  )    C-3    T-l,    tb 
C     ♦»*     £i»TiL;?<0     AT     Ar,     IMckIj?     ?0IM 

IFLAG=1 

L>i-',DA'.=  AiiXl(Af:£(D(J)),DIAG(J)*A33(T6jCP(J))) 
l/ie.'A'AXi  (  i'.  S(T.".J  .p(j-l)  ),ArS(TAuur'  (  J  +  1)  )  )  ) 

?7IL:i=x./i-<T(  L-  •':-<Ar.»  1(  J-i)  ) 

r'TlL:A=iir.;>l(PTiL.A/P{j-l)) 

P(J-1)  =  P(J-1)+3..lGa=f(PTIlDA-KJ-1)) 

^TIL:i  =  l  ./i-- T(L^     -A-*  H( J  )  ) 

P  T  I  L  :  A  =  A  •:  A  A  1  (  ?  T  i  L  D  A  ,  r'  (J  )  ) 

P  (  J  )  =  P  (  J  )  +  :  -.E  v;  A=i  (  P  T  I L  L'  A-  P  (  J  )  ) 
te     CONTINUE 
7C     TE-f'^  =  7-u:,P(ij)»:(lJ) 

ir(Tt;.'iP»o;«J«)V;)_TuO/ 

C     «*'<'     D='TAu!:^<0     AT     -IGrT    f-iA.xJ     tNLHCir-r 

I  r  L  A  G  =  1 

LA''iAK  =  A.'AXl(A5S(:^(lt))>:iAG(U)*AbS(TAUJ?(IU)))/AeS(TAUDP(IUMl)) 

PTlLOA  =  i  ./S  j<  r  (  LA.1iAr*H(  iU.il  )  ) 

PTIl;  A=A^^x■i(  -TIlDa^  F(  IJ.-l)  ) 

-'C  I'J  ■•1)=P(I  J  '.X  )+..-'EGA-(PTlLDA-P(  lUril  )  ) 
60    C  J  NT  1 1\  vj  E 
C     *** 

C     -**    CrcCK     Fj.n    Exri-ANECUS     I  <F  LB  C  T I  Ti-'     POINTS 
C    **^- 

IF(IFLAG.tw.C)G3T(jv^ 
C     *** 

V     ***    SCALE     A:JSCISSiE 
C     <=  T  * 

X.'U  =  C. 

DC    "^S     1  =  1*  N 

93   x;-'j=ASAXi  (y>'.j>p(i)=i=ri(i ) ) 

ALPr!AC  =  A.%Axl(  X;.U/SIo;;A,  1.  ) 

ALPr^A  =  ALPr:A»ALPHAC 

DC    9<.     1  =  1, \ 

ri(  I  )=H(  I)/ ALr  r4AC 
QA     c(  I)  =  6{ I)*^LP  -AC 

6(NPl)  =  ^(.,Pi)*ALPHAC 

GO    TC    S't 
C    ** » 

C     -**    Nu    EaTxANECuS     I.'.FLECT13N    PCINTS 
C    -** 


99    CC 


Nix     .  J  C 


Gu    Tu    3000 
C    *** 

C  ***  TAXUJ-.  NLmMC^E*  uf  itekations    EXCEEUED 
c    *** 

2G00  CC'-TINL't 

3CC0  RlTU<N 
E  i\  D 
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c    *** 
c    *♦* 

C***cS£VAL:'^.    J.     'CCt-TiH       lo/bO 

C    *»» 

c    »«* 

C     ***    FbNCTI.j-;:     EVALUATES    THE    fc  Xr^QN  Ef.T  I  aL    SPLINE 

C    *** 

C     »*»    D-SCrlPTION    OF    CALLI;.G    AkGUrELT^: 


C  **♦ 
c  »» » 
c    **^ 

c  *** 
c  *** 
c  *** 
c  *** 
c  ** *^ 
c  ?*^ 
C  *T'^ 
c    *** 


=  AijCISS-,c 

=  OruL"<ATto 

=  M^5tr(     Jh     J?::,':-'ED     PAI^S    GF    DATA 

=  --I.JiHT     HA', J    :>lDt     Cf-     :iPLlUE     ECoATlQ.NS 


X 
F 

NPl 

B 

TAJOP  =     SoLUTiL.;.    GF     jpLPt     E'-JATioNS 

''  =     EAPu.'ti.riAL     ^PLI.\t     TE<5l-L.'H    PAKArltTERS 

h  =     DELTA    ;( 

A6M-  =  ^oSCISbA  G^-  tVALuATIJr* 

TA!j"A?  =  C-.:.l'..i-\  z     UF  EvALLATI.jN 

T  A  V  D  F  =  1^  _ '  i '.  A  7  i  ;  t  jt    t  y  A  L  J  M  I  I  L .'; 

ALPHA  =  SC:.LING  ^'ArA-lETEF 


Su3<GuTIr;c     £S!:ViL('iF>jPl>DiTALL;P>P>H»XdAK,TALii:>.Ap^>TA'JSP>TA'JbPP>T3P 
i  PP>  ALPHA  ) 
CI«t.,Slj;,     X(l  ),F(  1  ),r  (i  ),  TAUI  P(  1  ),P{1  ),H(1  ) 

c    *** 

C  **-  INITI ALIZATIG'^ 

C     *^* 

CG'iST  1=  1  .  /  6  . 

CG  oT2  =  l  .  /3. 

CCiNST^  =  -7./o), 

CG'oT^=3i./2~23. 

CGNST?=-i ./Ip. 

CCNSTc=2./313. 

CCNST7=-7./ia5. 

CCNSTe  =  -..'5 

CjMST9= 1./ IZO. 

ETA=.C7 

SCAlE  =  2./ ( X (  i^l  )-x ( 1 ) )  .  ' 

c    *** 

C    **=!=    OETE^i'TiE     iNTE-^vVAL 
C     *  *  * 

Du    10    J=I*N  .  ■ 

I  =  J 

iF(xtA^.LT.x(j+i))G cran- 
io   CG.NTl\'Jc 
c    **« 

C    *»*    GETEr'ir.E     TY^£    LF    FIT 
C    *♦* 

11    T£MP=3( I  )*i(  I+l) 

IF{Tt^P..Nt  .0.  )  &C  TG  id 
C  *»*  FIT  WITH  LI\EA-?  Fl\CTIJ.M 

TAL)^ARr(F(i),(,((;+^)_,,j;,^)+p(I^2.)*(XBAK-X(I)))/(H(I)*ALPHA) 
T  A  J5  A  f,  =  i  C  "V  L  E  ^  T  A L  J  A  < 

TAU-P={  F(  I  +  1)-F(I  )  )/  (^.(  I)  *ALFHA) 
TAG'3F  =  SCALE*TA'J3P 
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20 


**» 


It 
T:; 

C- 

—      T 

r  1 

Xi 

f'  1 

If 

Li 
PI 
P  i 
X  i 
<^ 


Tt 

Tt 
Ti 

1(A 

Ti 

1(T 

2TA 

TA 

Ta 

i:m 
lic 

&G 
US 
0£ 
TA 

l+( 
TA 

l+( 
TA 
TA 

1(1 
Td 

1-T 
30    C^ 


25 


J-IPP 

r>PP  = 

t:. 

r       r    I 

=  J  <•  ■^ 

2  =  ?( 

HI=P 

c      ^  I 

2h:> 

2=)'l 

2  =  ^2 

t='2 
3H12 
^.  ■  1  = 
?  ■'.2  = 


i-TA 
-Tio 

'J  r.  -^  = 

U3PP 

*X12 
pp^-  = 

t: 

E    t-Y 

J3A« 

Ifil 

F(  i  + 
U3P  = 
UdP? 
)*SI 
P?-  = 
Ao'C  ? 

•;  T I  \ 

3 


^  • 
3  J 

Tri  ; 
LE-t 
L£*( 
1  )*P 
(  1)- 
I  .5T 

a  C  (^ 

=  p;r 

=  ^I2 

*  '<2 

2^  A  i 

2-^2 
=  i.  / 
i  .  +C 

IZj:- 
=  (M 

^  jr  ( 

:■  -  ( 1 
(-  (I 
(i  +  i 
I  )*( 

5C-L 
=  (  SC 

)-rA 

3  J 

?  E  ^  c 
PI2- 
=  (TA 

)-TA 
(Til 
1  )-»- 
SCAL 
=  (SC 

'.rl(  P 

(SCa 
(  I  )"' 

Jt 


«< 

(I 

.E 
3  c 
i* 
nl 


v.'Ei-  TI- L     iPLI'iE 

:  +  !)-/   -AC-)/  AL^hA 

Aw-;!  {  I  )  )/AL?r-:A 

) 

I  ) 

FA)    G3    T'_     2? 


L 


:PP.  =  1.  EmTATIC^ 


2  *  P  I  2  n  I  2 


2 
2 

(r: 

Tl 

5T 
I  ) 
1  ) 
+  1 
+  1 
)- 
T5 

-L 
o  J 
AL 
Xi 

uL 
SI 

V  "J 

DP 
(  1 

AL 
(  I 
LE 

C3 


T3¥r 

P12- 


-  1  <: 


>c 


I-i^P  r^ril 


7  '-•. 


xi  +  F 
ITt" 
-(Tr 

-P( : 

t  I  r  :■ 

■'1  +  3 
Al  :  P 
/  -  L  - 
(i  +  i 

/ALP 


C 

.•■]_ 

)  ) 

i  + 

•  "^ 

/- 

)    V 

*T 


2+  - 

+  1  ) 
+  TE 

1  +  r 
/hc 


LPrI 

AbJ 


2  +  v,  J^iT7=^PI2*PI2HI2 

^..i  r^'^Pi:  )*PI2 

-A^  ) /n(  I)-C  j:oTi*n(  I)* 

-,  ;■'  ^  V  ,<  1  i  +  T  c  1^  ,■  U  *  X  1  ^  )  + 

- '  •: 2 *  X 2 2  +  T  E X  li  3  >!=  X ?  ^  )  ) 

i  )-C  :M  Tl  i-Hd  )* 

T  E  -  ••.  f  *  X  2  2-  +  3  .  -  T  t  -^i"  3*  >  2  ^  )  - 

'2*Xl2+b.*TER13+xl4)J 

2*CJMSTl-H(I)*(TAuOP(I)*Xi*  (  fc.  *TER, 12  +  2  J.  *TEk 

(  :: .  -  7  c.  -  •••.  ^  +  2'J  .  *  T  E  I-  ■•;  3-  X  2  2  )  J 

J*l;j-:S1  l-h(  I)  *{o.*TAjOP(  I  )  -(TE-  •':2  + 

P  (  I  +  i  )  -  (  T  t  K  .^ ,:  +  i  0  .  r  T  r  -  .'"i  3 *  X  2  2  )  ) 


IC     Fj-,CTIJ\i 
i  -.  (  .^  V  I  )  -  H  C  )  ) 

P  (  I  )=?SI.-  r{  =  (  1  )  '-Xi  )  +  TAtj:P(  I+l)*SiNH(  P{  I  )*X2)  )  /uENij.l 
^(I)/PI2)'>.1  +  (P(I  +  1)-TAj:p(I  +  1)/PI2)*X2)/H(I) 
(  I  +  i)*C:S-i(P(  I  )=fX2)-TALO?(  I  )*ClSH(P(  I  )-Xl)  )'P(1  )  /DENGH 
)  +  (TAL-^(  i  )-T\bL'?{I  +  l)  )  /kI2)/H(  I) 
r  AL'iP/^LP-iA 

E=?P(  I  )/ AL'^^A)*-2/Lt^J^-(TALaP{  I  +  1)-SINH(P(  I  )*X2)4T<iU0P 
J  *  ^  1  )  ) 

-P  (  I  )  /^-L'^HA  )  --3/rENb>i*(TAUCP(  1  +  1)*C  JSh(P(  1  )*X2) 
S  -  (  -'  (  i  )  -  X  i  )  ) 


Q      V  V  ^ 
C     **  =f 


So35_oTI\E     EVALf(X,F,\Pl>3»TAL:P»P»H>ALPHA»FP»0cLTA>IFLAG*L) 
i>ME\SI:n    X(^),P(l),.-(l),TAUDh  (l),P(i)^ri(l),FP(<rvj>l^) 
C:'i -^JN    C3:'.STl^:LNST<:^Cb'iSTi/Cc.\STA,C:.MSTi)>Cl:sbT6iCQNbT7^Cu:>.ST3iCaN 
15TV 

IMTI  aLIZaTIjN 
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11 


20 


f.=  SPl-l 

SCALt  =  2./  (  *  (  .-^D-M  1)  ) 

DC    IC^    K=1»:-.P1 

DcTt'fiiNc     INTE-'VAL 

I  =  < 

IF( I .&E.NP1/2  )     I=I-i 

I  F  (  I  .  E  0  . ;,  P  1)    I  =  •. 

QtTE^^.lNc    Tr^E    Cr    FIT 

T  E  i  f'  =  i  (  I)  *  3  (  I  -H  ) 

IF  (T  t  •'.•'  ..•;r  .0.  )     G-     T:    20 

Fir     -in    Ll.ii.-^     H'J-.CTrJN 
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This  report  was  prepared  as  an  account  of 
Government  sponsored  work.   Neither  the 
United  States,  nor  the  Department,  nor   any 
person  acting  on  behalf  of  the  Department: 

A.  Makes  any  warranty  or  representation, 
expressed  or  implied,  with  respect  to  the 
accuracy,  completeness,  or  usefulness  of 
the  information   contained  in  this  report, 
or  that  the  use  of  any  information, 
apparatus,  method,  or   process  disclosed 
in  this  report  may  not  infringe  privately 
owned  rights;  or 

B.  Assumes  any  liabilities  with  respect  to 
the  use  of,  or  for  damages  resulting  from 
the  use  of  any  information,  apparatus 
method,  or  process  disclosed  in  this 
report. 

As  used  in  the  above,  "person  acting  on  behalf 
of  the  Department"  includes  any  employee  or 
contractor  of  the  Department,  or  employee  of 
such  contractor,  to  the  extent  that  such 
employee  or  contractor  of  the  Department,  or 
employee  of  such  contractor  prepares,  dissemi- 
nates, or  provides  access  to,  any  information 
pursuant  to  his  employment  or  contract  with  the 
Department,  or  his  employment  with  such 
contractor. 
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